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• 国内外动态 • 


斋朝鮮计算机教言现狀 


随着工业化的发展，南朝鲜也己步入了信怠化社 
会的口槛，各种计算机的使用普及到社会生活的各个 
领域。1965年南朝鲜引进了第一台电子计算机,1983 
年引进了微型电脑 OPC )， 经过近几年的发展，南朝鲜 
已成为国际市场上微机的主要供应国，1988年出口了 
约140万台微型电脑。目前，南朝鲜不仅在电子计算 
机巧件的开发和制造方面成绩突出，而且在计算机软 
件的开发和制造方面也取得了突出成就，到21世纪 
初，南朝鲜渴望成为世界第五位计算机软件的产销国。 

计算机《育的目的: 计算机产业的起和发展，需 
要大化计算化巧件、软件的设计开发人员，培养计算机 
专业高级技术人员，是大学计算机教育的目的。中小学 
计算机教育的目的，在于了解和掌握计算机的一般原 
理及操作要领，为升入大学 k 乂后接受焉一级的计算机 
教育打好基础。南朝鲜当局的有关部口和社会各界非 
常重视在全部的中小学普及相应的计算机教育。 

小学计算机教育的目的，首先是使小学生对计算 
机产生浓厚的兴趣，第二是使学生通过实习掌握计算 
机操作及应用技能，第王是掌握计算机程序的基础概 
念。 

中学的计 JI [机教育的目的： 首堯是让中学生了解 

计算机的结构和性能，第二是提高中学生的计算机操 
作技能，第王是使中学生理解工作和计算机之间的相 
互关系，第四是使中学生学会编制计算机最基本的程 
序。 

中小学计»机》育的现 状：南朝鲜当局的有关部 
口要求在所有的小学、初中、高中（一般高中和职业高 
中）普及计算机教育，目前因受到计算机设备和教师条 
件限制，不能在所有的学校开设计算机教育课程。据 
1988年的统计南朝鲜全境巧有6,472所小学枚，拥有 
各种计算机25,450台，平均毎校拥有 3.9 台。初中达 
2,430所，共有各种计算机10,037台，平均毎校拥有 
4.1 台。一般高中1030所，共有各种计算机7,264台， 
平均每校拥有 7.1 台。职业窝中665所，共拥有计算 
机16,039台，平均毎校 24. 1台。今后随着条件的改 
善将向所有的学校配备记化容量大而多功能的计算机 
巧件，如各种主机和终端显示器等。 

在学校计算机教育中所需要的软件正在组织力量 
开发。1988年就开发出小学、初中，高中计算机教育所 
需的10 口课程25种软件，今后几年巧计划化续开发 
857种教育用软件。 


普及计算机教育需要有一大化了解和掌握计算机 
硬件、软件、程序编制、计算机操作和维修等方面要领 
的教师，从1971年起各道、市开始对有关教员进行培 
训，当时培训巧容 L 乂 BASIC 程序为主。自1983年起南 
朝鲜当局在所有的公办和私办中小学里开设计算机教 
育，1987年又提出"计算机教育强化方案 M ， 大力充实 
和加强了中小学的计算机教育，也加强了计算机教育 
普及所需要的任课教师的培训和进修事业。1986年南 
朝鲜有78所师范大学，其中12个大学开设计算机讲 
座，为中学和小学的计算机课教员实行培训。据1988 
年统计，参加这种培训和进修的小学教员达29,139 
名，妨中教员达76,036名，高中教员达80,699名。自 
1990年起计划每年培训10,400名教卿，到1996年可 
培训约8万名教师，届时对全国964万中小学全体学 
生可实行正规的计算机教育。 

当前存在的问屈及其对巧: 计算机教育应包括有 ） 
关计算机本身的教育和使用计算机两方面的教育。目 
前存在的问题是只注重教会学生编制计算机程序而忽 
略其他方面，今后应努力克服这种偏向。 

目前，南朝鲜全境巧的各个中小学校都配备了一 
定数量的各种计算机，其种类和性能多而乱，其中不少 
计算机'不适合学校的教学用途，还有某婪计算机因为 
不适销对路而被淘汰和停产，因而需要更新这些计算 
机。南朝鲜的文教部要求所有的中小学校都要设一个 
计算机室和毎校配备11〜31台多功能大容量计算机 
及其配套辅助设备。 

目前，迫切需要开发优质教学用计算机软件， P 乂 
"计算机教育研究中瓜 M 为主建立起由全国软件技术团 
体、机关和有关技术专家参加的全国软件开发协作系 
统，《此促进教育用优质软件的开发和制作。 

目前，在中小学担任计算机教育的任课老师的计 
算机知识及操作和维修计算机的技能都存在一竖问 
题，这些教师中自 &能 开发教育用软件的为数极少，因 
而对他们进行进一步的职业训练和教育 W 此提高他们 
的教学水平和讲课质量是非常必要的。对其他课程的 
任保教 师也要进行有关计算机的一般教育，这对提高 
中小学的计算机教学质量4是非常必要的。 

南朝鲜当局于1988’年2月在 W 韩国教育开发院" 

向成立了 "计算机教育研究中 <心'>。这个中瓜担负着研 
究计算机教育课程，教育用软件的开发及审议、教学方 
法的改进、计算机的应用、收集有关计算机教育的资料 


等问题。其主要任务指导全国中小学的计算机教育的 
全盘业务，及时发现存在的问题和提出改正措施。除此 
之外，还要加强有关计算机教育的基础研究，其范困是 
①计算机教育的方向②计算机教育的内容和方法③教 
育用计算机巧件应具备的条件④教育用计算机软件 


等。 

总之，南朝鲜的学校计算机教育已受到全社会的 
重视，其普及速度也相当快。中小学的计算机教育能为 
信息化时代的早日到来做出必要的贡献。 

节选自"南朝鲜科技经济动态" 


合巧的中学计养化教巧 


上海大学商学院教授 朱涵標 


我国台湾的计鼻机教育与大陆相比是开 
展得比较好的。虽社会制度不同，但许多地方 
依然值得借鉴。 

急 湾各中学设置的计其机课程，兼顾升 
学和就业需求。1984年开始的中学教师计其 
机培训五年计划已见效果，计其机輔助教学 
的王作也正蓮勃开展。 

台湾的中学计鼻机教育分为巧部份：计 
鼻机普及教育——讲授计鼻机基本知巧和计 
鼻机輔助教学——用计其机辅助教师教学和 
学生学习。 

台湾的中学计鼻机课程设置规划从19 8 3 
年开始执行。九所普通中学被指定作为试点。 
每所中学抽调四名教师到台湾师范大学接受 
计卑机软、硬件知巧培训。同时，当地教育部 
口向每所学化提供12台微机 ，1 當打印机，推 
进其计异机普义教育工作。随后，台湾教育部 
口义于1984年提出一个五年计划，责成舊鴻' 
中央大学破收120名中学教师接受为期六月 
的全化产培训。五年内，有1,200名教师参 
加，也即，每所中学至少有两名受训。 为了使 
教师们踊化参训，专心学习，在墙训期间，教 
师的收入和福利都有相应的化惠待遇。 

台湾抗借助计尊机进行教学细分为计异 
机專南助教学 （ Computer-aided Instruction ) 和 i 十 
卑机輔导教学 （ Computer-assisted Instruction ) 前 
者主要是协助教师评分、记分和演示教学内 
容，后者主要是协助学生自学。但许多场合， 
两者通称为计其机輔助教学，简称 CAI。 1985 
年起，中小学的数学、英语、电子学等课程已 
由计卑机辅助教学。 1986 年又开始执行一个 
四年计划，后延长两年，改为六年计划，到 
1992 年止。此计划莉为职业中学开发四百多 
口课件 (Courseware ) ，其中近二百口是针对基 


本电学、电子学、机械制图、机械力学等课程 
的，另二百多口是数学 《辑 电路、电碱理论、 
经济学和会计学方面的。六年计划的目的是： 

1、 增加教师和学生的 CAI 知识； 2. 培训教师 
开发研制 CAI 课件； 3•研制 CAI 編辑语言 
(Authoring Language ) ; 4•建立 CAI 课件數据 
库。在计划执行前阶段，于1987——1988财 
政年度，369所中学（包括公立、私立）的高中 
部每家得到王十多台 IBM 兼容机，总投资约 
一千万美元。在1988——1989财政年度，6 7 6 
所初级中学每家至少得到十台微机，总投资 
达二百多万美元。此外，计划从1988年起，四 
年内力函使2486所小学每所得到十台微机。 

台湾师范大学已研制开发成一种汉字计 
其机輔助教学编辑糸统 (authoring system )，使 
用为便于编写计其机辅助教学课件而设计的 
专用语言——编辑语言。糸统有10,000个汉 
字供巧，字形及大小可调。糸统能适示留形， 
有动画功能。目前，他们还正在加配语音功 
能。值得一提的是，该糸统按碱盎义使用手册 
成本价供应给教师（约仅10〜20美元）。在此 
基石由上，正在执行中的 CAI 课件开发人员培 
训五年计划渴望于近年内顺利完成。 

台湾计其机教育面临的问题是：计鼻机 
知识的社会承认问题。如果大学入学考试不 
考杖计鼻机知识，大部分学生对此就不会重 
视。芳据报导，台湾的政府部口有时有一种技 
术恐惧症，怕化拚力涉及新丰物。因此，一些 
新技.术新设想常常被学化领导忽视甚至遭到 
化绝。 

参考文章： 

J 、 Computer Education VOl , ]3, NO. 2,pp, 213-216 ^ 1989 

2. Computer Education ro!, J3, NO. 4337-341 , 1989 




•程巧劉巧与编程 巧术* 

WS 功能的扩充 

福建顺葛县禹 P 日南亨学校李锋谢吉华 


DOS 3. 3有效地扩展了中华学习机的功能，虽然 
DOS 3. 3是很成熟的操作系统，但在某些特殊的应用 
场合，标准的 DOS 却无能为力。本文将向大家介绍一 
些小经验，用 W 扩展 DOS 的功能。 

1、 数据盘的格式化 

标准 DOS 格式化的磁盘只有35个磁道，其中 

$ 0-$ 2的 S 个磁道被 DOS 占用。为了能在一张 

磁盘上多存些数据，我们希望能格式化一张即不含 
DOS ， 也不含 HELLO 程序，并且有40个磁道的数据 
盘。若在 basic 状态下执行下列命令 : POKE 42344, 
76； POKE 44723,4 ：POKE 46922,96 \ 

POKE 44725,164 ：POKE 46063, 40 ；POKE 48894,40 \ 
然后，用 INIT HELLO 命令初始化一张空盘，就可 W 得 
到一张不含 DOS ， 不含 HELLO , 有40磁道的数据盘 
了。值得注意的是数据盘不含 DOS ， 不能用 W 引导 
DOS 。 

2、 直接执行 OPEN，READ，WRITE 命令。 

DOS 命令中的 OPEN ， READ ， WRITE 命令都只能 
在 BASIC 程序中使用，如果直接执行，就会出错，若想 
直接执行这竺命令，只要在监控状态下键入： 

A021；EA EA EA \ 

便可达到预期的目的。若想恢复原状态，可在监控状态 
下键入： 

A021 ；20 5E A6 \ 

3、 増加 BSAVE 的长度 

用 BSAVE 命令存二进制文件时，程序稍长就会出 
错，如果打入 BSAVE TEST ， A $ 800， L $ BFFF ，就会出 
现 RANGE ERROR 的错误信息。如果我们在监控状态 
下做如下的修改： 

A964：FF\ 

我们就可 W 存入更长的二进制文件了。要恢复原功能 
可在监控状态下键入： 

A964；7F \ 

4、 执行各种类型的 hello 程序。 

hello 程序通常是 a 型的，如果想在开机引导 
DOS 时执行 B 型或 T 型的 HELLO 程序，可做如下修 
改； 

9 E 42；34 \ ；执行 B 型 HELLO 

9 E 42 :14 \ ；执行 T 型 HELLO 

9 E 42：06 V ;恢复执行 A 型 HELLO 


5、 维持 MON 命令 

在程序侦错时，我们往往会用 MON C ， I ，0 命令来 
帮助追踪磁盘工作过程，在发展错误时，我们会按下 
CTRL —— RESET 两键令程序停止，修改后再继续侦 
错，可是送时的 MON 功能已失去。若我们在监控下键 
入： 

9 DD 7 ：EA EA \ 

W 后侦错时，若再按 CTRL — - RESET 两键中断程序 
运行时， MON 功能仍然被保持。若需恢复原状态，可在 
监控下键入： 

9 DD 7:8 D 5 E \ » 

6、 加快存储速度。 

标准的 DOS 3. 3每存储一个文件后，就要做一次 
校验，但磯盘机工作时，出错的可能性很小，所我们 
可 W 键入 POKE 46732,76命令来取消校验工作，这 
样，可加快20%的速度。 

7、 移目录磁道 

目录磁道是整个磁盘的信息中私，解剖加密的磯 
盘软件时，往往是从解剖目录磯道开始，标准的 DOS 
所格式化的磁盘，其目录磁道都位于$ 11 ( 1 7) 磁道。为 
了使磁盘的目录内容不被别人看到，我们可 W 把目录 
磁道移开， W 后只有用这张盘引导才能看到目录。假设 
A 为新设的目录磯道，只要执行 W 下 POKE 语句后，再 
格式化一张新盘，就可得到一张与众不同的加密盘 
了。 

POKE 44033, A ； POKE 44703, A ： POKE 44766, A ； 
POKE 

45715, A ； POKE 46586, A ： POKE 46012, A ； POKE 
46286, A；POKE 44741 ,A * 4 ；POKE 44745， A * 4 十 4 

8、 取消写保护 

用磁盘背面存储程序时，大家一般是用磯盘巧乳 
机巧开写保护槽口才可使用，若没有磯盘巧孔机，我们 
可 W 键入 POKE 47159,0 ： POKE 48222,0:这时，不开 
写保护槽口就可 W 用磯盘背面存储数据了。 

9、 带 HOME 功能的 CATALOG 

为了便于观看，在使用 CATALOG 命令前，我们常 
先用 HOME 命令清虎，如果您键入 W 下两个命令。 
POKE 44460,88 ； POKE 44461,252 \ 

W 后，当您用 CATALOG 命令列目录时，它将会先清屏 
后再列文件目录。 











前言 

在计鼻机处理大妻數据抑序问题时，人们急希望 
用最快的速度来完成。为此，除遠择运鼻速度快的机 
型，并禾用编译 basic 运行或用汇编语言编写程序 
外，更重要的是研究新的辦序方法， V 乂提高排净速度。 
本文介绍一种新的快速辦序方法，分类浮沉法。 

一、 排序的基本原则与方法 

分类浮沉沐抑序的原则是利用數组下标变妻的有 
序性，為救据按其大小的等级进行分类辦队后，至入數 
组相应的下标变量中，完成辦净王作。其方法是莉待挑 
序的 N 个數据，按大小等级划分成 M 组，一次至入二 
维軟组 F ( M ， N ) 中，并用數组 T ( M ) 记录每组數据的 
个數，完成一次辦 P 人。然后用浮沉法对各组内的數据按 
大小辦序，即二次义位。所巧浮沉法，是对各组中的數 
据依次新大數和小數分别由外至内置入數组 F ( M ， N ) 
中。其特点是经过一个循环，同时辦两个數义位于數组 
变辛中，大數（或小數）浮起，小數（或大數）沉底，一次 
到位。由此，经过 T ( M )/2 个從环，就完成了二次定位 
王作，至此掛序工作全部完成。由上所述，对数据的辦 
序，首先经过分类处理，然后再进行浮沉定位，因之取 
名为分类浮沉法。 

二、 与常规排序方法的比较 

首先，分类浮沉法在分类处理的方法上，与常規的 
富泡法、分渐法有本质不同，前者是先对數据按其大小 
的等级进行分类，直接置入數组相应的变*中，这一王 
作不需对數据进行比较和交换。其次，在二次义位的过 
程中，由于采用了浮沉法掛序，使交换數据和循环次數 
都少于常規的辦序方法。由于比较和交换的次數大大 
减少，因而明显缩短了掛序所用的时间，所 V 乂分类浮沉 
法辦序的速度快得多。本人曾用 APPLI 对100个數 
据进行比較实验，所用的掛序时间是；晉浩法为 82. 3 
秒，浮沉法为 54. 4秒，而分类浮沉法只巧 20. 1秒，可 
見速度之快。特别是当据批量很大时，更能显示出该 
方法快速的特点。应当指出的是：浮沉法所用的变妻 
少，只用一维數组就可辨序，因而占用机器内存量少， 
并且程序短小。而分类浮沉法由于增加了一个二维數 
组，所 V 乂占用内存妻大。在实巧使用中，两种方法的选 


择在視机器 内存量 而义。 

兰、具体措施与编程技巧 

分类浮沉法解决了辦序的快速性，但在程序设计 
中巧需要解决实用性和通用性。本程冰采取了 V 乂下几 
项拱施（见程序清单）： 

1、 采用位移法解决负數的數据在數组 F ( M ， N ) 中 
的存放问题。程序开始时，输入數据中的最大值 H 和 
最小值 L , 给出數值范西。当 H > = 0 时，如果 UO 时， 
则 M = H - L 增值，位移量为 L , 使最小的數据存放在 
F (0， N ) 中，解决了负值的存放问巧；如果 L 〉0, 則 M 减 
少，也使最小化存放在 F (0， N ) 中，乂达到减少占用内 
存的目的。同样，当 H <0 时，也保 iiEM 〉0。 

2、 对數组 F ( M , N ) 中 M 值的压缩与护展 。程序的 
400〜430语句化定了 M 的取值范面，无论最大的数 
据 H 值多么大，或多么小，都能使 M 化保持在大于 
10,小于或等于100的范西内 。 为巧止由于 H 化过大， 
占用大*内存，对 M 值进行7压缩处理，使之小于或 
等于100,同时也解决了化据巧散度过大的现象。反 
之，当最大值 H 过小时，对 M 值进行4/=•展，从而避免 
了巧于數据分类的组數大少而导致每组數据过于集中 
的现象，使之充分发揮分类辦序的快速作用。 

3、 解决同一组教据的存放和掛净问題。当待裤序 
數换都是整教时，數据的存放可用一维數组 F ( M ) 完 
成，并用數组 T(M) 记录相同數据的个數。但是待辦序 
的數据通常在同一分组内既有整數又有小數（并且各 
不相同），在这种•请化下，为使程序具有通用•达，应使用 
二维數组 F(M,N )， 骑数撫按照整數化的大小分成 M 
组，用 T(M) 记录每组數据（其中數可 V 乂各不相同） 
的个數，对应存放在 F(M ， N) 的下标变妻中，于是解决 
了同一等级數据的存放问題。然后再用浮沉法对同一 
组内的數据进行辦序。 

4、 对机器出错的纠正。在數撫輪入中，有些數据发 
生内存出错（如78, 8956输入后，则显示为7 8 , 
8956001)，为此增设了 90行语句对數据进行四舍五入 
取整处理， V 乂保社显示的正确•往。需要说巧的是，取整 
的位數应根据數据中小救点后的最多位數 T 而义，即 
0 =拟了(0*10/\了+.5)/10/\了。程序中 T =7。 （法：在 
程序中不能使用上述表达式，否则仍会造成墨示出 









错）。 


四、字符型数据的快速排序。 

V 乂上所述是对數字型數据的味速姑序。如果數巧 
是字符型的，可经过巧单的转换来实现。其方法是，辦 
字符型数据的肯字符转换为 ASC 码后，利用 ASC 码化 
进行一次分类辦队，并骑 程序中 的數组 F ( M ， N ) 用字 
符串數组 F $ ( M ， N ) 取代，使字符逛數巧存放在 F 
$ ( M ， N ) 中，再用浮沉法进行二次义位，完成新序工 
作。 . 

五、程序说明 

程序中变量 " N 为數据的个數， H 为教撫中的最大 
值， L 为最小化。400〜430语句确义數组 F ( M , N ) 中 M 
的取值。500〜 5.60 语句是用浮沉法对各组内的數换进 
行二次义位。顺便指出，如果使用 PC 机，可骑510,540 
和550行用 swap 语句代換。 

10 INPUT N 

20 PRINT " H = MAX :，，； ： INPUT H 
30 PRINT " L = MIN :，’； ；INPUT L 
40 M = H-L 
50 GOSUB 400 
60 DIM F ( M ， N ), T ( M ) 

70 FOR 1=1 TON 
80 INPUT D 

90 D=INT ( D * 10000000+. 5)/10000000 
100 H =( D - L)/K 

110 T ( H )= T ( H ) + 1; F ( H , T ( H))=D 
120 NEXT 

130 FOR P=M TO 0 STEP -1 
140 IF T ( P ) = 0 THEN 160 
150 IF T ( P )>1 THEN GOSUB 500 
160 NEXT P 
200 T =1 

210 FOR P=M TO 0 STEP -1 
220 IF T ( P ) = 0 THEN 320 
230 FOR J =1 TO T ( P ) 

250 T $= STR $( T ) 

260 IF T <10 THEN T $ ="’，+ T $ 

280 PRINT T $ ;"’，; F ( P , J ) 

290 IF J < T ( P ) AND F ( P , J )<> F ( P , J +1) THEN 
T = T +1 
300 NEXT J 
310 T = T +1 
320 NEXT P 
330 END 
400 P =. 001 
410 K = M/P 


420 IF K <=1 THEN K = P /100: M = M / K : GOTO 
440 

430 P = P * lOjGOTO 410 
440 RETURN 

500 FOR 1=1 TO INT ( T ( P )/2) 

510 IF F ( P , I )< F ( P , T ( P ) + 1- I)THEN T = F ( P , I)；F 
( P , I ) 气 F ( P , T ( P ) + 1- I ): F ( P ， T ( P ) + 1- I)=T 
520 IF ‘（ I +1)-( T ( P )- I ) = 1 TNEN 570 

530 FOR J = I +1 TOT ( P)-I 

540 IF F ( P , J )> F ( P , I)THEN T = F ( P , J ) ； F ( P , J )= 
F ( P ， I ): F ( P ， I)=T 

550 IF F ( P , J )< F ( P , T ( P ) + 1- I)THEN T = F ( P , 

‘ J ): F ( P ， j |)= F ( P , T ( P ) + l - I ); F ( P ， T ( P ) + l - 


I = T 

560 NEXT J,I 
570 RETURN 
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充分利用软汉字系统内存 

宜昌一中韩沒 


我们在使用软汉字系统时，常常感到内存不够。 
主要是因为软汉字系统本身的指令程序，汉字的显示， 
小字库等占用了大量内存。 

要充分利用内存，除了常见的方法如优化程序，采 
用模块化，使用汇编语言外，还可通过改动软汉字系 
统来达到利用的目的。 

下面 W 常见的 STC 2.0 软汉字系统来说明这种方 
法。 

我们编写的汉字软件给用户使用时，常常不需要 
让用户造字，那么就可占用造字程序所在的单元(入 
口为 $ IDF 7); 如果是演示软件，无需汉字输入，可占 
用拼音码表 （ $ 9 A 4〜 $ B 20) ， W 及汉字输入处理部分 
(入口为 $ IB 03); 在 STC 2、0 中，本文显示第一页 
($400 〜 $7 FF ) 大部分未使用，也可利用；必要时如 
使用加密或不再与驱动器接通，可将整个 DOS 区域 
($9600〜$ BFFF ) 覆盖。 

«上仅举数例，如进一步研奔软汉字系统，会发现 
更多的单元可供利用。还可改动格式化文件 INIT ， 使 
操作更加方便。 

不过，要特别注意的是:在改动和使用这些单元 
时，应特别小私，否则会破坏系统。只有反复实践，才能 
达到预期的目的。 



W 文本文件 （ W 下简称 T 型文件)存放的数据可 
在不同程序中共享，这是它的优点，但在利用这些数据 
时要用较多的调入时间，而且増加了磁盘的磨损。尤其 
是在调试处理这些数据的程序时更不方便。假如把送 
种 T 型文件数据转换成为 DATA 语句中的数据就方 
便多了。所附程序就是把随机文本文件转换为 data 
语句数据的例子。原理是根据 APPLE- II 及中华学习 
机等兼容机上 data 语句在内存中存放的规律来实 
现的。 DATA 语句的存放形式如下国所示： 


L 

H 

_ _ ^ 



L 

H 

_ _^ 

_ _ 


Lj 2| s ： 句结束标志 


L data 数据的 ASC 1码 
一 DATA 的指令代码 
本句标号 ( L = 低位; H = 髙位） 

^ 向下一句起始地址的链指针 (L= 低位 ; H= 高位） 


了解上述规律之后，就可让计算机自动生成 da ¬ 
ta 语句，同时不断修改程序的未地址。 

本程序可使一个 data 语句中存放250个字节 
的数据，各数据项自动 W %" 分开。转换后生成的 da ¬ 
ta 语句和从键盘输入的完全一样，待转换结束，可 W 
象修改 BASIC 程序一样随意增删其中的内容，使用非 
常方便。程序的功能说明如下： 

1行语句把简单变量、数组的首地址和自由区首 
地址改到$ 8000之后，免随着 DATA 数据的产生而 
破坏变量区。 

5行语句指定 DATA 语句的开始行号。 

55— 110是自动生成 DATA 语句的子程序。55句 
去掉由40句产生的右边一位上的"，";60句找出数据 
写入的首地址;65句计算出下一句的首地址; 70-90 
句置指向下一句首的链指针和本句的标号及 data 


再置本句的结束标记"0"，还需连续置兰个 "0" 为程序 
的结束标志，最后把程序的未地址置入$ AF 、 $ B 0 单 
元中。 

待到转换结束，只要 del 1-110 去掉前面的程序， 
剩下的就是 data 语句，只要加上处理程序或拼接到 
原有的处理程序上，就可方便地处理数据了。 

1 POKE 105,0 ； POKE 106, 128 ： POKE 107,0 ： POKE 
108,128；POKE 109,0:POKE 110,128 
5 S=300 

10 D$ = CHR$ (4) 

15 PRINT D $ ;"OPEN COURSE90# 1 ， U45 ，， 

20 FOR 1=1 TO 60 

25 PRINT D $ ; "READ COURSE90 巧 1, 民 "； I 
30 FOR J=1 TO 9；INPUT Y $ 

35 IF LEN(X$ )-hLEN(Y$ ))250 THEN GOSUB 55 
40 X$ =X$ +Y$ +V’:NEXT 
45 Y $ = GOSUB 55 ； NEXT 
50 PRINT D $ ； ^CLOSE": END 
55 X$ =LEFT$ (X$，LEN (X$ )-1) 

60 SA=PEEK (175) + 256 * PEEK (176)-3 
65 EA=SA+6+LEN(X$) 

70 POKE SA,EA-INT (EA/256) * 256：POKE SA+1, 
INT (EA/256) 

80 POKE SA+2,S- INT(S/256) * 256；POKE SA+3, 
INT (S/256 )： POKE SA+4,131 
90 FOR J=1 TO LEN(X$ ) : POKE SA + 4 + J，ASC 
(MID $ (X $ ， J ， l)):NEXT:POKE SA-M+J，0 
100 POKE EA,0：POKE EA+1,0；POKE EA + 2,0 
105 EA = EA + 3:POKE 175, EA-INT (EA/256) * 
256 ； POKE 176,INT(EA/256) 

110 X$ =Y$ ;S=S+10:RETURN 


的指令代码，同时把数据依次写入相应的内存单元中， 
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一、中文状态下两个程序无法使用的原因 

CHAIN 的英文意义是链接，它是 DOS 3. 3系统主 
盘上的一个机器语言程序。 

由于 Apple I 的巧存容量不大，在调入 DOS 系统 
后，用户区仅 36 K ， 进入中文状态后减少为 26. 5 K ， 而 


序，其工作区域即上述的$800个内存单元。 

苹果机上使用的各种软、硬汉字系统占用巧存情 
况彼化有所差别，跟 CEC - I 也不尽相同，但总的情况与 
上述巧容相类似。 

二、解决问题的途径 


且被汉字屏幕显示区即高分辨李图形第2页分为 14 K 
和 12. 5 K ： 两部分，如果要想在祝器上运行一个大型程 
序，往往必须采用程巧覆盖 技术； 即是将程序划分成若 
干橫块（毎个樓块大小不超过当前可使用巧奋），并将 
它们事先存入磁盘，届时逐一调入巧存运行，这时毎一 
程序都使用巧存的同一区域并覆盖掉前一程序。稷序 
覆盖时的一个具体问题是：由于 RUN 和 LOAD 这两 


由于 CHAIN 与 RENUMBER 两个程序在最初设 
计程序的时候，是 k 乂 Apple 1的英文状态下的巧存分 
配出发的，没有考虑到也不可能预计到乂后会在机器 
上使用汉字系统，因此，解决问题的根本方法是重新编 
写程序，但是这样做叱较麻烦。事实上，我们可找到 
比较简捷的解决办法。 

1、利用保存和恢复4枚系统指针的方法来传递变 


条 DOS 命令都具有清除巧存中原有程序和变量的功 
能，使得程序间的数据无法传递。 CHAIN 程序就是为 
解决这个问题而设计的，它能使前一程序中的变量数 
据在调入后一程序时不会被清除，从而被后一程序所 
利用。 

RENUMBER 是用 APPLESOFT BASIC 语言编写的 
一个程序，它有重定程序行号和合并程序的功能，能将 
若千程序进行适当编裸，形成一个较大的新的捏序。关 
于两程序使用法可参阀有关资料。 

很明显，两个捏序是我们进行软件设计的非常有 
用的工具，特别•是在设计大型软件时往往离不开它们。 
但是，在中文状态下使用这两个程序，都必定出现自动 
转入监控或陷入死锁状态。因此，无法使用。 

发生上述现象的原因是：两个趕序在使用时，对巧 
存的要求与^文状态下的巧存分配相冲突。 

比如对 CEC - I 中华学习机，巧存 RAM 中的 $38 F 
至$ 3 CF 为汉字管理程序的工作单元，而 CHAIN 程序 
进入巧存后，却占据了从$208开始的430个单元（即 
系统第2、3巧的绝大部分），所 1^)( 系统无法正常工作。 
进入中文状态下的中华学习机的最高可用地址为 
$9200,而 RENUMBER 程序进入巧^后却必须使用 
$9600之前的$800个巧脊单元。其原因是：虽然 
RENUMBER 为一 A 文件，但其后附有两段汇编语言程 


量数据。 

APPLE I ( 或 CEC - I ) 的系统零页中有4枚重要的 
指针，它们是：变量区首址、数组表首化与尾址、字符串 
存储区首址，依次存放在$ 69至$ 74这8个地化单元 
内，它们对程序数据的存取起着至关重要的作用。毎当 
系统启动或执行 NEW , LOAD , RUN 命令之一后，这四 
枚指针与其他系统指针一起被初始化。 

当一个程序运行后，再往巧存中调入另一程序后， 
只要新程序不超过原程序的长度，在运行之前，原程序 
的所有变量数据实际上是原封来动的，仅仅是因为4 
枚系统指针被初始化后无法再利用它们而已，因此，我 
们在头一个程序运行结束后，设法保奋4枚指针的值 
(如用一短小的 B 文件存放，或者干脆存入系统第3 
页），然后在后一程序运行前予《恢复，这样就可《顺 
利地实现程序的数据传遂。此外，利用 LOMEM 语句设 
定巧存可巧最低地址，可《使一个程序跟它的数据区 
分开存放，比如可 W 把变量区首化确定在 HGR 2 之后， 
这样，一来可 K 避免数搪伸入汉字屏幕显示存储区（即 
HGR 2) 造成的屏幕混乱与数据丢失，二来还可《使各 
链棲程序在 14 K 乏巧不受限制，比如后一程序的长度 
就可《超过前一程序的长度。 

下面是程序链接运行的一个简单实例； . 

5 REM APPLE 11及 CEC - I 在中文状态下的程序链接. 


r 
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(PROGRAM A ) 

10 DIM H $ (6 ),N $ (6), X (6), A (6 )；LOMEMs 
24576 

20 PRINT TAB (5)"* * * 考生考试成绩记录表 

* * * ，，: PRINT 

30 PRINT " 考号 M ," 姓名 考分 ’’:PRINT 

40 FOR 1=1 TO 6； A ( I ) = I 
50 READH $( I ), N $( I )， X ( I ) ' * 

60 PRINT H $ U )， N $ ( I ), X ( I ) 

70 T = T + X ( I)：NEXT I 

80 PRINT " 总分 = "; T，w 平均分 = M ; INT 〈 T * 100/6 
+ 0.5)/100 

90 PRINT " 按下任一键即可链接程序 B " 

100 GET X $ : PRINT 

110 PRINTCHR $ (4);" BSAVEKK , A $69， L 8，， 

120 PRINT CHR $ (4)； "民 UN B ，， 

200 DATA 0001，罗彬 ，89,0002, 常晓罢，75,0012,王 
渝， 80 

210 DATA 0005,陈红，91,0008,肖剑文,65,0009,刘 
芳，100 

5 REM PROGRAM B 

10 PRINT CHR $ (4)； "BLOAD KK ，， 

15 PRINTTAB (5)" 链接运行程序 B 的打印结果"： 
PRINT 

20 PRINT tab (4) w * * * 考生考试成绩排序表 

* * * ，，： PRINT 

25 PRINT " 考号 ’’ TAB ( IO )" 姓笔 " TAB (20) "考分 " 
TAB 口 8)" 名次 M 
30 FOR 1=1 TO 5 sK=I 
40 FOR J = I +1 TO 6 
50 IF X ( A ( K ))< X ( A ( J )) THEN K=J 
60 NEXT J 

70 T = A ( K ) : A ( K )= A ( I ) : A ( I)=T 
90 NEXT I 

110 FOR 1=1 TO 6； Y = A ( I ) 

120 PRINT H $ ( Y ) TAB (10) N $ ( Y ) TAB (21) X ( Y ) 
TAB (30 )I 
130 NEXT I 

140 PRINT CHR $ (4); "DELETE 邸巧 :END 

上述程序是用一短小的 B 文件 KK 来保存4枚系 
统指针。也可 (用 110 FOR 1=1 TO 8 :POKE 767 + 1, 
PEEK (1( M + I):NEXT —行程序来取代程序 A 中的第 


110 行，再用 10 POKE 105, PEEK (768 )； POKE 106, 

PEEK (769 )； POKE 107,PEEK ( 770) ： POKE 108,PEEK 

► 

(771)；POKE 109,PEEK(772)sPOKE 110,PEEK(773)；. 
POKE 111,PEEK(774).POKE 112,PEEK(775) 取代程 
序 B 中第 10 行，效果完全一样。 

乂上链接程序的方法衙便易行，不仅传递数据在 
購间可《完成，数据量大（可多至 12. 5 K 巧存），而且 
完全不古用$800 «后的用户区巧存。这比使用 
CHAIN 程序显然优越得多，因为后者不仅要占用巧、 
外存（多达430个字节），而旦事先必须将 CHAIN 复 
制在工作盘上，在调 A 文件的同时也要调用吃，显得 
十分麻烦。利用保存和恢复系统指针的方法对链接中、 
西文程序均十分有效，它适用于 Apple n 、 CEC -1 及兼 
容祝上的任何汉字系统。值得一提的是:后一种方式特 
别适合不带驱动器的用户，实现雜带上 A 文件的链接 
运行，具有更为重耍的应用价值。 

2•在西文状态下编辑中文程序。 

由于 RENUMBER 程序只能用于西文状态而无法 
在中文状态下使用，所《对于中文程序的编巧可 k 乂采 
用一个变通的方法：即在系统怎动并调入 DOS 后，不 
要先进入中文状态，立即在西文状态下调入中文程序， 
就可乂进行重偏行号与合并程序等编辑工作。这时虽 
然程序中的汉字不能显示（呈杂乱的 ASCI 字符状 
态），但对上述两种操作并无妨碍。注意：中途只能 
LIST ， 不能 RUN , 也不能转入中文状态，否则会导致操 
作失败（即使是在按了中文键后再按西文键退回也不 
行，因为届时 HIMEM 指针始终指向$9200而不能改 
变，除非重新后动 DOS 系统）。 

程1 序在 Apple I 及 CEC - I 上运行通过。 


巧分宇航实骚装置 

江苏苏州市十中李竹君 
某项宇航飞行按计划要带总重要为540公斥且体 
积相同的十个实验装至。根据设计要求，这批装至分之 
组（每组至少王个）装在栽重重分别为170、180和190 
公斥的互个实验仓内，使王个实黎仓均为满載。但在运 
行发射中时，分组编号被搞札了。指样中要求根据 
各装置的重量，尽快骑它们分装到王个实验仓中。 

当时给巧在场的一位电脂程序员被命令马上编写 
一个分配程序。在十个装置的重量分别被称好后（为 
24、28、％、44、49、58、67、70、76和88公斥），程序也刚 
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刚编写好，化程序清单。输入十个重量數据，仅慎3秒 
钟就得到了正确的分配方案，見运行结果。 

该程序主要设计思想为：用王重循环找出某之个 
装五的总重量为170或180或190公斥（见30〜90语 
句），并利用170、180和190为等差數列的特点，化为 
1、2和 3( 见60句），巧妙地為找到的这王个装里的重 
妻數据分别存放到二维數组中，并為原存放數据的一 
维數组中的相處单元清零。一旦找到巧组满足条件的 
装置重妻后，方案已确义（见70句）。这时，一维數组 
中巧 制下的 四个重量數撫必为第王组。程序最后按序 
打印出王组重壬數撫，当二维數组中某单元内容为零 
时，再打印一维數组中的非零值，即四个装置为一组的 
重妻软据。 

10 DIM A (10), B (3,3)： S =0 
20 FOR 1=1 TO 10 ；READ A ( I)：NEXT 
30 FOR 1=1 TO 8 :IF A ( I ) = 0 THEN 90 
40 FOR J = I +1 TO 9 :IF A ( J )==0 THEN 85 
50 FOR K = J +1 TO 10 ：IF A ( K ) = 0 THEN 80 
60 A =( A ( I )+ A ( J )+ A ( K ))/10-16 



在研究曲线的过程中，意大利数学家格兰弟 （1671 
〜 1742) 发现了一种象花朵那样美丽的曲线。取名叫玫 
瑰线。他用数学语言描述了这种曲线的作法。 

玫瑰线的极坐标方程是： 
p=a sin bO 其中: a 〉0, b 〉0. 

玫瑰线的形状由 a 、 b 决定。 a 值确定大小; b 值确 
定花瓣叶数。当 b 为奇数时，有 b 叶花瓣;当 b 为偶数 
时，有 2 b 叶花瓣。 

用 LOGO 语言作玫瑰线图形的程序设计方法： 
由玫瑰线的极坐标方程，通过坐标变换 

X = pcosO 
y = psinO 

计算出直角坐标后，进行捕点，把玫瑰线作出。 

程序及运行结果如下； 

TOMGXN ； A ： B ； T；X 

HT 

， ASPECT . 9 
( PR [ A =]： A [ B =]： B ) 

( PR [ T =]： T[X = ]； X ) 

MGX 1； A ； B ； T；X 


70 IF A =1 OR A = 2 OR A =3 THEN B ( A ，1 )=A 

( I ) ； B ( A ,2)= A ( J )； B ( A ,3)= A ( K )； A ( I ) = 0 ；A 

( J ) = 0: A ( K ) = 0: S = S +1 :ON S GOTO 30,100 
80 NEXT K 

85 NEXT J 

90 NEXT I：PRINTING FOUND !，， :END 

100 FOR 1=1 TO 3 ：PRINT I +16"0 -，，； 

110 IF B ( I ,1) THEN FOR J = 1 TO 3； PRINT B ( I , 
J )"",: NEXT ； GOTO 140 

120 FOR J = 1 TO 10: IF A ( J ) THEN PRINT A 
( J )""; 

130 NEXT J 

140 PRINT .NEXT I 

150 DATA 24,28, %, 44,49,58,67,70,76,88 

RUN 。 

170—24 58 88 
180-28 36 49 67 
190 — -44 70 76 ! 



END 

TO MGX 1； A ： B ： T；X 
HT 

.ASPECT . 9 
IF ： X>；T THEN STOP 
MAKE " P : A * SIN : B * :X 
SETXY ； P * COSjX (； P * SIN ： X ) 

MGXl : A : B : T : X +2 
END 

A = 80 B =5 
T =180 X =0 . 

RESULT ； 

其中:过程 mgxn 是主过程。 

过程 MGXNl 是画玫瑰线图形。 " 

参数 A 确定玫瑰线的大小; B 确定叶数， T 所需确定的 
度数; X 賦巧值为零。 

如果我们不断改变 A 值的大小，就能得到复瓣型 
玫瑰线图形。在进行图案设计中很有用处。> 

例如，将程序中的 " MGX 1: A : B : T : XM 改占: re ¬ 
peat 9[ MGX 1: A : B : T:X MAKE " A : A +10] 

运行可得如下结果： 

A = 10 B =2 
T =360 X =0 
RESULT ； 





成 ^ 

n - 程巧剖析与编程 技巧- ^ 

當计算机求解 N 阶行列式算法及其程序 J 


H 


江苏省蘇山制药厂周美华 


巧要：本文介绍一种利用余子式降蛛方法求解 N 蛛行 
列式的异法义其编程技巧。 


一、基本概念及定理 

在线性代数中，行列式是作为求解线性方程组而 
引入的一个重要工具，对于行列式： 


^11 

过12 … 

•••am 


^21 

a22." 

•••a2n 

记为 D 

^nl 

azn … 

•••ann 



是 n , 项的代数和，即 D = I ] (― I )* awa 2 p 2"- anpn ， 其中， 
t 是 PiP 2 … Pn 为自然数1，2,…， n 的一个排列的逆序 
数。有期刊曾经登载用此定义求解 n 阶行列式计算机 
实现的文章，尽管能够达到正确结果，但其程序代码冗 
长而且运算时间很长叫人难 W 忍受。本文介绍一种利 
用余子式降低行列式阶数的算法，即从 n 阶降为 n -1、 
n -2、 …，1阶的计算机快速解法。 

余子式和代数余子式，在 n 阶行列式中，把无素 
aij 所在的第 i 行和第 j 列划去后，留下来的 n -1 阶行列 
式叫做元素 ay 的余子式，记作 Mij , 记 Au =(- l ) WMy ， 
Au 叫作元素 au 的代数余子式。 

定理:一个 n 阶行列式，如果其中第 i 行所有元素 
除 ay 外都为零，那末这行列式等于 aij 与它的代数余子 
式的乘巧，即 D = auAu 。 关于行列式的几个性质，一般 
书中都有介绍，这里就不繁述了。 

二、算法《巧 

根据上述定理，由行列式的第一行起逐行展开。 
即：由第一行找一个不为零的元素 au , 若找不到，则此 
行列式等于零，算法结束。否则，记下 aij 元素所在列的 
列号，存放在一维数组 C 中，即 C ( j )= j 。 赋行列式0= 
(-1)"+" * au * Mu ， 此式中的 I 恒置为"1"，而 J 等于元 
素 au 所在 n 阶行列式中的列号减去数组 C 所记下的 
在 aij 元素所在列的前面的列的个数，也就是 I 、 J 是元 
素 au 在余子式中所在的行号、列号。然后根据行列式 
性质进行初等变换，使当前行除 ay 外的所有元素变为 
零。依次从下一行开始，跳过数组 C 所记下的列，重复 
上述过程，直至第 n 行，得到最终行列式 D 的值。 

.兰、程巧设计 

本程序关键之处在于巧妙地采用一维数组 C 来 


模拟"划去元素 ay 所在的第 j 列"，由于算法是从第一 
行起依次逐行展开，故不必记下 a , j 的行号。在进行下 
一行展开时，跳过数组 C 所记下的所有列，送就实现 
"划去元素 aij 在 n 阶行列式中的第 i 行和第 j 列' '，得 
到余子式 Mij 。 

10 D =1 

15 INPUT " N=，，;N 
20 DIM A ( N , N ), C ( N ) 

25 FOR 1=1 TO N 
30 FOR J = 1 TO N 
35 INPUT A ( I ， J ) 

40 NEXT J,I 
45 FOR 1=1 TO N 
50 J = 1 

55 IF C ( J)=J THEN J 1= J 1 + 1 ;GOTO 65 
60 IF A ( I ， J )<>0 THEN 80 
65 J = J +1 

70 IF J>N THEN PRINT " D =0 ’，:END 
75 GOTO 55 
80 C ( J)=J 

85 D = (-1) A (1+ J - Jl ) * D * A ( I , J ) 

90 FORK 三 1 TON 
95 IFC ( K)=KTHEN 125 
100 IF A ( I , K ) = 0 THEN 125 
105 H = A ( I ， K ) 

110 FOR M=I TO N 

115 A ( M , K )= A ( M , K )- A ( M ， J ) * H / A ( I ， J ) 

120 NEXT M 
125 NEXT K 

130 J 1 = 0 , 

135 NEXT I 

140 PRINT " D=，，;D 

145 END 

程程中变量 N 为行列式阶数，变量 J , 是统计数组 
C 所记下的在元素 au 所在列的前面的列的个数。 D 为 
行列式值。 

25语句——40语句给行列式初始化;45语句85 
语句计算列式 D ;90 语句——125语句进行行列式变 
换。该程序简洁易读，结构紧凑。经在 apple 1机上反 
复运行证明，结果正确，占机时少，比用按行列式定义 
求解的程序速度要快得多，阶数越窩越明显。程序可方 
便地移植到中华学习机、 IBM - PC 机， LESER 310 机上运 
行。 

四、实例分析 
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计算行列式 


0 2 13 

1-241 


2 3 


求解过程如下： 


0 2 13 

1-241 

C3 + (-f)XC2 

0 2 0 0 

1-2 5 4 

2 1 J _ A 


2 114 

2 3 11 

C^+(-f)XC2 

2 1 2 2 

2 3 4 •-手 



C2+(-5)XCj 
C3+( —"XCj 


— 2 


C2+( -棘 XCi 


= — 2 


0 0 

ii _il 
了 ■■ T 
21 23 


19 . n 
—~ 0 

103 

— 2~ — 


■( —1)1+2 X 2 



19 

11 

( — 1 ^1 + 1 V 1 V 一 9、 

—~ T 


、 1 ) 入 1 入 V 一么 y 

21 

■- 2~ 

23 

■- Y 


(-1) … X ( -导 ) X (-2 )X 


(- 帶 一 103 



第(一)步时， ai 尸 2， C (2) = 2; 

第(二)步时， aij = l , C ( l ) = l ; 

第 ( S ) 步时 , aij =—^, C (3) = 3 


- 实用程巧 • 

I Apple Pascal 源程序引导的实现 ! 

四川万县师专应宏 


Apple Pascal 源程序没有行号，这给婉读和分析大 
型程序带来一定程序的不便，笔者在认真分析 Apple 


Pascal 程序的结构后，应用 Apple Pascal 语言编制了一 
个名为 print 的程序，执行该程序，将使得输出的源程 
序清单具有行号和分页功能。 

由于 Apple Pascal 源程序是由字符组成的文本，因 
此可 W 对源程序逐个读取字符到文件缓冲变量，尔后 
写到另一列表文件中或直接输出，当读到行终结符时 
就换行，读到文件尾标记 ( CTRL ~ C ) 就终止写操作。在 
Print 程序中， INTERACTIVE 是系统提供的一个相互 
作用文件， source 是欲输出的源程序名 ， buffer A 是文 
件缓冲变量。还有几点值得注意： 

1、 在 Priut 程序中，首部的参数表可 W 省略，文件 
打开语句 reset 中的文件名 Source 必须要带类别， 
text ，否则，程序运行时会给出文件找不到的信息。 

2、 PHnt 程序是将带有引导的源程序直接输出到 
打巧祈，也可在用户盘上形成一个列表文件。此时程 
序中 

rewrite ( out , ‘ PRINTER :，）和 close ( out ) 两句应作 
相应修改，即： rewrite ( out ，^ 片名；文件名•类别，）及 

close ( out , lock ) 


这样在文件管理子系统 ( FILER ) 下，可使用 T 命 
令显示或输出送个列表文件。 

3. 源程序的每一行，可看成一个字符串，那么缓冲 
变易 buffer 的数据类型可否说明为字符串型 ( String ) 
呢？这个问题留给有兴趣的读者考虑。 

PROGRAM Print ( source , PRINTER : )； 

VAR p , l ， n , i : INTEGER ; 
buffer ； TEXT ； 

out ： INTERACTIVE ； 


reset ( buffer , ， source ，）； 
rewrite ( out ，， PRINTER :， ）； 
p ： = l ； l ： = 0； N ： = 0； 
writeln ( out , ^ Page ， ， p •• 4 ); 

writeln ( out ,,.,); 

writeln ( out ); 
writeln ( out )； 
while not eof ( buffer ) do 
begin 

l ; = l + lj n ； = n + l ； 
write ( out,l :5,，'）； 
repeat 

write ( out , buffer A ); 
get ( buffer )； 
until coin ( buffer )； 
if not eof ( buffer)then 
begin 

writeln ( out ); 
get ( buffer )； 
if n = 55 then 
begin 

for i ； = 1 to 8 do 

writeln ( out ); 
p ：= p - hl ; 

writeln ( out , ， page ， ， p : 4 ); 

writeln ( out ,,. 

writeln ( out ); 
writeln ( out )； 
n ： = o ； 
end ； 
end 
else 
begin 

close ( buffer )； 
close ( out , lock ) 
end ； 

end ； ( * of while * ) 
end . ( * of program * ) 


begin 
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•实用程序 • 

如何在 LASERS 10上違接程巧 


北京六十一中郑嘉砖 


笔者曾设计了一种方法，可 W 简单方便地在 
LASER 310 上进行程序的连接，今介绍如下； 

首先输入并运行下面 basic 程序。 

5 REM MERGE 

10 POKE 30862,0 ： POKE 30863 114 
20 FOR 1=1 TO 201 ' 

30 READ A ； POKE 29183 + I，A 
35 NEXT I 

40 CLS；PRINT @135 ，"MERGE AND REN UMBER ": 
PRINT @450," ’， 

50 DATA 42,33, 121,68,77, 17, 1,0, 175,237,82, 

202.49.114 

60 DATA 237,82,202,106,114,237,82,202,77,114 
70 DATA 33,233,122,94,35,86,35,126,129,119, 

35.126.136.119 

80 DATA 235,17,0,0,175,237,90,194,27,114,201 
90 DATA 17,232,122,42,249,120,175,237,82,34, 
254,119,68,77 

100 DATA 42,249,120,17,0,183,237,184,19,237, 
83,252,119,201 

110 DATA 33,233,122, 94 ，35,86,2%, 1 ，0, 0, 175, 
237,74,202,106 

120 DATA 114,2%，35,78,35,70,237,67,248,119, 

235.195.80.114 

130 DATA 237,75,254,119,42,249,120,43,43,34, 

246.119 

140 DATA 235,42,252, 119, 237,176, 42,246, 119, 
17,233,122 

150 DATA 175,237,82,34,250,119,25,94, % , 86, 

2%，1，0,0 

160 DATA 175,237, 82, 74,202, 174, 114,237, 75, 
250,119,9 

170 DATA 235, 43, 115, 35,114, ％, 35,35,35, 126, 
198,0 

180 DATA 194,163,114,35,195,137,114,235, 35 
190 DATA 34,249, 120, 34,251,120, 34,253, 120, 
58,33,121 

200 DATA 214, 3, 192, 237, 75, 248, 119, 42, 246, 

119,195,27,114 

210 END 

当屏幕显示 "merge and renumber " 时，一个 
用于连接程序和改写行号的机器码程序已送入内存的 
高分辨率显示区。该机器码程序，•只要不断电，不运行 
有 MODB ( l ) 的程序，将常驻内存供随时调用。它的功 


能有四： 

1、 键入 A = USR (1)， 可将当前内存中的程序复制 
保留于内存底部的一段区域。 

2、 键入 A = IJSR 口），可将保留于内存底部的程序 
连接到当前內存中的程序后面。 

' 键入 A = USR (3)， 可将保留于内存底部的程序 
巧号后连接到当前程序的后面。 

* * 4•、会入 A = USR ( X )( X 为大于3或小于1的整数）， 
可将当前内存中的程序的每一语句行号増值 X 。用于 
改写行号。 

现假定有 P 1、 P 2 两个录在磁带上的 BASIC 程序需 
要按照 P 1 在前 P 2 在后的顺序合并成一个程序。只要 
按下面步骤操作即可： 

(1) 用 CLOAD 先调入 P 2。 此时需要在 P 2 前面加 
一个 WREM LINK " 语句，如 P 2 最小行号为10可増加语 
句5 REM LINK 。 然后键入 A = USR (1)^ 将 P 2 复制保 
留于内存底部。 

’ （2) 再调入 P 1。 如 P 1 最后是一个 END 语句，应先 
同删除 END 语句。键入 A = USR (3) ，保留于内存底部 
的 P 2 就被连接到 P 1 的后面了。 

(3) 用 LIST 査阅。可 W 看看连接后原 P 2 的每一语 
句的行号值都増加了一个与 P 1 最大行号值相等的数， 
这使合并后的新程序在语句行号上不会出现问题。但 
如 P 2 中有无条件转向、条件转向、子程序调用等语句， 
则这些语句中的转向行号不会变动。这些转向行号必 
须用通常方法逐一改写。 

(4) 程序合并后，连接处的 "REM LINK " 语句只有 
P 号和 REM 出现。应键入它的行号再按回车键将其删 
j 除。这时 P 1、 P 2 即合并成功。 

两点说明： 

1、 在步骤 （1) 中如 P 2 的最小行号为1或0,可先键 
入 A = USR ( X )( X >3)， 使 P 2 每一语句行号增值 X 后 
再在前面加 WREM LINK " 语句。 

2. 如果在 P 2 前面加了 WREM LINK " 语句后，最小 
行号值已大于 P 1 的最大行号值，则可在步骤 (2) 中改 
用键入 A = USR 口），将保留于内存底部的 P 2 连接到 
P 1 的后面。 
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CEC-I 中华学习机已走向千家万户，对于初学者 
希望能通过键盘直接和计算机打交道，而不去编程序。 
为此已出现了不少键盘作图的程序，它们各有其优点， 
笔者感到美中不足在于:笔划粗细改变很困难，按键次 
数，用键个数都太多，速度慢。本文给出一程序，能在绘 
图过程中按给出10个模型改变笔划粗细，原则上笔划 
粗细可 W 是任意的，并在绘图状态下只需用 R 键 、 S 
键、空格键(在修改状态下用五键)兰键即可。 

用这个程序可 W 按自己的要求直接绘制各种图形 
和文字，特别在教幼儿识字方面效果很好。本程序在 
CEC-I 机， Apple 机上通过。 

一、 程序功能 

程序执行后，首先在上面出现0—— 9( 从左到右） 
10个画笔模型，左上角出现一个向下的指针，指示画笔 
移动的方向。画笔始点在屏幕中央，下面出现 "XUAN 
BI HAO :，， (选笔号），选完后进入绘画状态，然后你可 
用11、口、<：、5、么、7、[>、<]、空格、回车等键绘出满意的 
图形，绘画结束按 E 键，系统提示你存盘或结束。 

P 键接下后，用么、7、1>、<1、键移动画笔(不画）， 
具有修改功能，按其它任何键退出 P 状态。 

回车键按下后，用八、▽、[>、<1、键移动画笔，但不 
抬笔，相当于一般键盘作图程序功能，再按一次回车键 
便退出该状态。 

当你选好笔号和方向后，按空格键，画笔将不停地 
移动，只有按 S 键才停止。 

为了少出错、易修改，在 P 状态进入之前，最好选 
0号笔。 

二、 用键说明 

S ——暂停画笔。 

民 选择画笔移动方向。 

C ——选择箸号。 

P 进入修改或抬笔状态。 

A ——在 P 状态下向上移笔(抬笔）。在"回车"状 

态下向上移笔(落笔）。 

V —— 同 A ， 只是向下移笔。 

0 —同 A ， 只是向右移笔。 . 

<3 用 A , 只是向左移笔。 

E 退出本次绘图。 

空格一按选择宅号和指针方向移动画笔。 


回车——进入一般绘图程序。 

=、主要变《说明 

X 、 Y 、 Xd 、 Y 。: 画笔在屏幕上坐标。 

B : 笔号。 、 

S : 画笔方向号。 （0 ——下，1——右下，……7——左下） 
Q : S 方向与屏幕 Y 轴夹角弧度数。 

QK ， PK ， XX ; 键码。 

四、程序说明 

1-4 行:将画笔造型存入$ 300开始的造型表内。 
5-9 行:给出笔号从0—9的十个画笔模型。 

10-11 行:画出画笔移动方向指针。 

1 7-40 行:检查按键，并转入相应键处理。 

92— 104行: P 状态处理。 

91-104 行:一般绘图程序。 

90—120行: S 键、空格键处理。 

200-240 行:边界处理子程序。 

300— 390行 :1 键处理。 

400—430行:方向指针调整子程序。 

500—600行: R 键处理子程序。 

程序 

1 POKE 232,0 ； POKE 233,3 

2 FOR I =0 TO 5； READ A 

3 POKE 768 + I ， A ; NEXT I 

4 DATA 1,0,4,0,5,0 

5 HGR : HCOLOR = 3 : HPLOT 0,20 TO 279,20 ：ROT = 
64 

6 FOR 1=0 TO 9； SCALE=I * 2+1 

8 FOR J =1 TO 10 

9 DRAW 1 AT 30 +I * 25,20- J:NEXT J:NEXT I 

10 HCOLOR 二 3 :FOR 1=0 TO t 28 STEP 2: X =10+6 
* SIN ( I ) : Y = 10+6 * COS ( I ) sHPLOT X ， Y:NEXT 
I 

11 S =- l ： XO =140 ；YO = 90 ；X = XOsY = YO；GOSUB 

400 * 

12 HOME : VTAB 22: INPUT "XUAN B I HAO (0." 

9):，，; B : B = B -9 

13 B = B -9 

15 IF B >9 THEN 13 > 

16 HOME ； VTAB 22： PRINT " S—STO P ； P-PEN UP ： 
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SPC—PEN DN : E — ESC : R — POT : C-CHA NGE PEN ，， 
17 GET KY $ : PK = PEEK (-16384) - 

25 SCALE =2 * B + l:POKE 233,3 
28 IF PK =13 THEN 91 V’ 

30 IF PK =80 THEN 92 ' 

32 IF PK =32 THEN 90 

35 IF KY $ =" R，，THEN GOSUB 500 

38 IF KY $ =" E，，THEN 300 

39 IF KY $ =" C " THEN 12 

40 GOTO 15 


410 X 3=10+5* STN ( Q )： Y 3=10+5* COS ( Q ) 

420 HCOLOR =3 : HPLOT 10,10 TO X 3 Y 3 
430 RETURN 
500 S = S +1 

510 IFS > =8 THEN S = S -8 
515 Q = S * 3.1415926/4 

570 IF S /2= INT ( S /2) THEN ROT =8 * S:GOTO 590 
580 ROT =8* ( S +1) 

590 SCALE =2 * B - f - l：GOSUB 400 
600 RETURN 


90 DRAW 1 AT X , Y；GOSUB 200 :GOTO 110 

91 HCOLOR =3 ：HPLOT X , Y：GOTO 94 

92 XDRAW 1 AT XO , YO ： GOSUB 200： DRAW 1 AT 
X，Y 

94 GET A $ : QK = PEEK (-16384)： XO = X ： YO=Y 

95 IF QK =10 THEN Y = Y +1 

96 IF QK =11 THEN Y ^ Y -1 

97 IF OK =8 THEN X = X -1 

98 IF QK =21 THEN X = X +1 

99 IF QK < >13 AND QK < >11 AND QK < >10 
AND QK < >8 AND QK < >21 THEN 15 

100 IF QK =13 THEN PK =0 
102 IF PK = 13 THEN 91 
104 GOTO 92 

110 XX = PEEX (-16384 )：IF XX =211 THEN 15 
120 X = X+STN ( Q ) ； Y = Y + COS ( Q ) : GOTO 90 
200 IF Y >170 THEN Y =170 
210 IF Y <50 THEN Y =50 


W 下是用 0 号、 2 号、 3 号、 4 号混合绘制的图形。 





•实用程序.。打 ^ ^ 

矣巧 NE ： W 裤程序矣'法 

•' ..I' ■，- 

、, > 唐山白玉瓷厂张奉，:; 


220 IF X >278 THEX X =278 
230 IF X <1 THEN X =1 
240 RETURN 

300 HOMEjVTAB 22 ：INPUT "CUN PAN MA ?，，; K $ 
320 IF K $ < >" Y，，THEN 360 
330 D $ = CHR $ (4) 

340 HOMH ： VTAB 22： INPUT 一 SU RUWNE JIAN 
MING:，，;NAME $ 

350 PRINT D $ ； " BSAVE ，，； NAME $ ;，， A $ 2000, L 

$ 2000’， 

如 0 HOME；VTAB 22 ：INPUT " J 圧 SU MA ?( Y / N )"; 
KK $ 

370 IFKK $< >" Y，，THEN 12 
380 RESTORE:GOTO 1 
390 END 

400 HCOLOR = 0 : HPLOT 10,10 ,TO X 3, Y 3 


贵刊 1989 年第一期中《程序"死锁'，的补救》一文的 
末尾提供了一个迫回 NEW 掉 BASIC 程序的机器语言 
程序，但只在西文状态有效，不能直接用于软汉字系 
统。 

笔者编制的 UNNEW 程序仅31个字节，不到上文 
程序长度的一半，却无论西文、软汉字状态均可使用。 
不过，在软汉字系统中它只能追回 BASIC 程序，小字 
库还要另作恢复。此外，该程序为可浮动型， $2 E 1 是 
较合适的运行地扯。 

程序的原理是只恢复 BASIC 行指针链初端的高 
位和变量指针，其余工作转交 ROM 中的固化程序去 
完成。 

程序： 

02 E 1- AO 01 A 5 68 91 67 88 

0沈 8- A 2 03 E 6 69 DO 02 E 6 6 A 

02 F 0- B 1 69 DO F 4 CA DO F 3 E 6 

02 F 8 - 69 DO 02 E 6 6 A 4 C F 2 D 4 《 UNNEW 》 


14 





• 实用程 序 • 

APPLE 机上虛拟盘的使用 

西铁< 誓化 电教室徐建林 


在 DOS 3. 3操作系统下，用户可很方便的使用 
各种 DOS 命令对磁盘文件进行操作。但是在磁盘操 
作中往往要占去一定的时间。尤其一个事物管理程 
序，经常对文本档案中的记录进行反复读取操作，占 
用许多时间，并且增加了磁头的磨损。如果把所需处 
理的文本档案调入虚拟盘，读取操作都在虚拟盘上进 
行，将会大大改善上述的不足。笔者编写了一个 ba ¬ 
sic 程序 （见程序 1)。 可 W 在含有 16 K 语言卡的 AP - 
PLE 机上运行，使其具有这种虚拟盘的操作功能。 

一、 ® 拟盘的设置 

虚拟盘的设豈方法很简单。在 DOS 3.3 下，键入 
程序1，并《 APPLE — XNP 为名存入磁盘保存。运行 
程序1，可将虚拟盘的操作功能设置好。程序1的主 
要作用是将一段机器语言程序装入 DOS 系统的第一 
个文件缓冲区内（地址在 $9 AA 6 〜 $9 CF 4)， 并对 
DOS 操作系统作了一些必要的修改。修改后使得所有 
的 DOS 命令都要通过这段机器语言程序的检查。对 
正常的 DOS 命令仍照常执行。对虚拟盘操作的 DOS 
命令则经过这段程序处理。它将模拟 DOS 的 RWTS 
动作，把 DOS 的实际操作改在虚拟盘上执行。由于这 
段程序存放在 DOS 的第一个文件缓冲区内，所 W 不 
影响用户的 ram 区。只要不重新启动 DOS , 就不会被 
破坏。如果将程序1作为格式化时的 hello 程序写 
入磁盘， DOS 启动后，就会自动调入执行。 

二、 虚拟盘的巧用 

APPLE 机上的 16K 语言卡一般总是被 
INTBASIC 的解释程序占据着。当用户不使用 INTBA- 
SIC 时，这 16K 望间就空置不用。正好可作为虚拟 
盘使用。虚拟盘的使用是 W —个特殊的文件名 XNP 
为保留字。首先用命令 :INIT XNP,Ss 设定一个 
不用的槽号 S ， 作为虚拟盘的假设槽号(当用户不设定 
时，隐含 S=5) 。 经过设定后，每当用户在 DOS 命令中 
指定这个槽号时，就可 W 使 DOS 命令在虚似盘上操 
作。这样并不改变 DOS 对实际磁盈的操作能力。当用 
户在 DOS 命令中指定 S6 参数时， DOS 命令仍象 W 往 
一样在实际磯盘上执行。通过指定 S 参数，用户就可 
W 很方便的选择 DOS 命令的执行方式。下面举例说 
明。 

例 l 、 DOS 命令的使巧 

INIT XNP ， S 5 ;设定虚拟盘 SLOT = 5 


LOAD 文件名， S 6， D 1 ;从磁盘装入 BASIC 程序 

SAVE 文件名， S 5 ;将程序存入虚拟盘 

例2、在虚拟盘上建立文本文件 
10 D $= CHR $(4) 

20 PRINT D $ ； "OPEN TEXT ， S ；5" 

30 PRINT D $ ； "WRITE TEXT " 

40 PRINT " APPLE — XNP ，， 

50 PRINT D $ ；"CLOSE TEXT " 

60 END 

王、 虚拟盘与实际谣盘间的存取 

虚拟盘中资料由于是在内存 RAM 中，所 W 掉电 
后资料将随之消失。为了将虚拟盘资料保存于实际磁 
盘，并能在需要时再取回到虚拟盘中。我们必须使用 
特殊的文件名进行操作。首先要建立一片资料盘，建 
立资料盘的方法是运行程序2。回答资料盘所在驱动 
器号后，即开始对资料盘进行格式化。一分钟左右即 
完成。存取虚拟盘是 16 K 语言卡中的全部资料作为 

一个整体。每片5 ^英寸软盘可存放8块虛拟盘的 
资料。分别 WXNP 1、 XNP 2 …… XNPS 为特殊的文件 
名。每片资料盘共可存放 16 X 8 =1 28 K 资料。下面举 
例说明其操作： 

SAVE XNP 2， S 6， D 2; 存虚拟盘资料到资料盘 
INIT XNP , S 5 ;清除虚拟盘中全部文件 
LOAD XNP 2, S 6, D 2 ;将资料盘装入虚拟盐 
由于虚拟盘与资料盘间的存取操作是直接调用 
DOS 的 RWTS 完成的，所 W 存取只需4秒即可完成。 
比 DOS 存取文件的速度要快3倍左右。 

四、结束语 

虛拟盘的使用会给用户提供很大的方便。由于虛 
拟盘与一般汉卡在内存中使用的区域不矛盾，所 W 在 
汉卡状态下仍可使用。虚拟盘虽然加快存取的速度， 
但由于它只有 16 K 的空间，当存入的资料超过 16 K 
时， DOS 便会发出 " D 投 K FULL " 的错误信息。所 W ，在 
使用中要及时把虚拟盘资料转存到资料盘上，避免 
出现这种错误。 

程序1 

10 AD = 47030 ：NO = 3； GOSUB 100 
20 AD = 48425 ；NO = 3； GOSUB 100 
30 POKE 42347,96； POKE 45715,14 
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40 AD=39589；NO= 591： GOSUB 100 

50 POKE 43607,2：POKE 40192,128；POKE 40193, 

154 

60 CALL 42964； CALL 40019 
70 HOME : IF PEEK (32768) = 100 THEN PRINT 
CHR$ (4)； "民 UN INIT-XNP" 

80 VTAB 2： HTAB 8： PRINT" ***** XNP 
COMPLETE f * 关 * * * M 
90 END 

100 FOR 1=1 TO NO 
110 READ DA；POKE AD+1,DA 
120 NEXT I 
130 RETURN 

200 DATA 32,167,154,32,175,156 
210 DATA 255, 132, 72, 133,73, 160, 29, 162, 25, 
169, 160,217,117, 170,208,44,136,202,16, 
247,160,2,185,184,156,217,117,170,, 208, 
30,136, 16,245, 172,95,170, 192, 12,240,11， 
192,14 

215 DATA 240,7,192,5,176,12,76,91,155,152, 
233, 14, 141, 166, 154, 76, 126, 155； 173, 233, 
183,205,187,156,208,110,173,244,183,240, 
88, 201,4,208, 3, 76, 123, 155, 72, 173, 236, 
183,201,19,144,4,233 

220 DATA 4,176,248,201,15,176,4,105,4, 144, 
248, 141, 120, 4, 233, 15, 170, 173, 240, 183, 
133, 62, 173,241, 183, 133, 63, 188, 188, 156, 
185,131,192,185, 131,192, 189,192,156,13, 
237, 183, 133,71,169,0,133, 70, 104 
225 DATA 74, 176, 11,160,0,177, 62,145,70, U6，. 
208, 249,240,9, 160, 0, 177,70, 145,62, 136, 
208,249,44,130,192,173,187,156,141,247, 
183,173,224,156,141,246,183,24,96,76,4, 
189,152,208,42,169,16 

230 DATA 44,101,170,208,4,169,80,208,3,173, 
233,183,141,187,156, 173,235, 183, 如1,254, 
144,2,169,0,141,224,156,32,83,156,169,0, 

133.72.32.234.162.76.139.159.74.141.237, 
156,173,120,170,201 

235 DATA 177,144,8,201,185,176,4,41,15,208, 

2.169.4.10.10.24.105.1.133.31.173. 237, 
156,201 ,1,208,4, 169,0,240, 3,173,224,156, 
141,228,156,44,166,154,16,23,165,31,141, 
236,183,32 

240 DATA 4,189, 176, 118,160,5,185,187,179, 
217,218,156,208,96,136,208,245,173,233, 
183,205,187,156,240,85,141,226,156,173, 
234,183,141,227,156,164,31,200,140,229, 
156,169,0,141,233,156,169,225,133 
245 DATA 72, 169, 156, 133, 73, 169, 3, 133, 30, 
164, 30,190, 188, 156, 189,131 ,192,189,131， 
192,185,192,156,9,15,141,234,156,169,15, 
141 ,230, 156,32,4, 189, 176,%，206,234, 156， 


206,230, 156, 16,243,206,229 

250 DATA 156,198,30,16,212,173,239,156,141, 
224 ， 156,76 ， 52 ， 156 ， 44,130, 192 ， 32 ， 58 ， 255 ， 
44,130,192,76 ,126, 155, 44,130,192,160,13, 
177, 72, 74 ,74,74,74, 160, 3, 136, 240, 3, 74, 
144,250,185,242,156 

255 DATA 76, 133, 179, 169, 255, 133, 71, 160, 0, 
132,70,152,44,131,192,44,131,192,145,70, 
44, 139, 192, 145, 70, 136, 208, 243, 198, 71, 
165,71,201,208,176,231,160,13,185,196, 
156,153,116,224,136,16,247,160 

260 DATA 7, 185, 210, 156, 153, 48, 224,1%, 16, 
247, 169, 122, 141,39, 224, 160, 6, ]85, 218, 
156, 153,0,224, 1%,, 16,247, 169, 17, 160,2, 
141,1,227,140,2,227,136,141,1, 226,140,2, 
226,44，130，192,96,2% 

265 DATA 187,156,240,3,221,140, 192,96,216, 
206,208,80,0,8,8,8, 208, 208, 224 ,240,255, 
255,0,0,255,255,0,0,255,240,0,0,255,255, 
17, 1,0, 0,35,16,0, 1,4, 17,3,216, 206,208, 
212,1,96,1,0,17,0,251,183,0,0,0,0,0,0,0, 
96,1,8,7,4 

程序 2 

10 HOME 

20 . IF ( PEEK (47032)< >167) THEN POKE 32768, 
100； PRINT CHR $ (4 );"RUN APPLE - XNP " 

30 PRINT^THE PROGRAM WILL DELET E ALL OF 
DISK !!!” 

40 PRINT TAB (10);" CONTINUE ?( Y / N)”:GET Y $ 

50 IF Y $ <；>" Y"THEN END 

60 HOME . PRINT ； PRINT TAB (10); "DRIVE 
NUMBER ? ( l /2 r 

70 GET Y $ :IF Y $<> wi"AND Y $<>"2 叮 HEN 
GOTO 60 

80 DR $=" D ，，+ Y $ 

90 PRINT ； PRINT TAB (6); "PUT ADISK INTO 
DRIVE ，，; Y $ 

100 PRINT ； PRINT TAB (6); "PRESS ANY KEY , 
START INIT ，， 

105 GET T $ : PRINT：PRINT TAB (6) ;" WAITING .- 


110 D $ = CHR $ (4)： PRINT D $ ; "INIT XNP’，： 
PRINT D$ ;"INIT HELLO，S6，，，;DR $ : PRINT 
D$ ;"UNLOCK XNP" 

120 FOR 1=1 TO 8； PRINT D $ , "SAVE XNP’，；！： 
NEXT I 、 

130 PRINT D $ ； "LOCK XNP” ； HOME 
140 PRINT TAB(8)；"INIT XNP COMPLETE” 

150 PRINT ； PRINT TAB (8); "INIT ANOTHER 
XNP?(Y/N)，， 

160 GET T $ : IF T $ = "Y"THEN 60 
170 HOME : PRINT‘‘GOODBY. ，，: END 
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关联分折通用程巧 


山东省膽诉地区五生 F 方疫如 马立军 



按照信息论的观点，系统可分为兰类:信息全知的 
为白色系统，信息一无所知的为黑色系统，介于二者之 
间，部分信息已知，部分信息未知的为灰色系统。显然， 
科学研究中遇到的多是这类系统。研究灰色系统的方 
法很多，其中最基本的方法有关联分析。它是对随机时 
间序列进行处理，明确各因素对系统的关联程度的方 
法，也根据已知主要因素的指标，对系统的状态进行判 
别分类。由于关联分析不需预先知道数据分布类型，对 
样本量要求也不巧，因而适用范围较广。 

一、数学方法 
第一步，生成分析矩阵 
设有一组表征系统状态的指标 
N }， 对各种影响系统的因素获取相应指标 { Xjw ; i = l ， 
2,…， N ; j = l ，2, …， M }, 构成 N * M +1 矩阵。当进行 
判别分类时， { xow > 为已知因素的各项指标值， { Xjw } 
为系统在各种分类情况下的各项指标值。 


第二步，数据预处理 

对矩阵视需要做规一化处理(数值悬殊时各序列 
用不同单位表示，使数值接近，避免非等权)和标准化 
处理(数据分别用该序列均值去除， W 强化各因素的接 
近性，増加可比性）。 


第兰步，关联分析 

令同一指标项 i 的 X „( i ) 与 Xi ( i ) 的绝对差值为 

maa: max * • • * min min 


么 ji , 令 Amax 
定义关联系数 Kji 为 


. Aji^Amin : 


A 知 


Kji: 


/\min -\- p/\max 

A -f Pl\rriax 


(卢 = 0.5) 


定义关联度 Kj 为 

Kj 越大，因素 j 与系统关联程 k 越大。 


二、程巧功能 


输入系统(或已知因素)指标个数，欲分析因素(或 
系统分类)个数，依次输入各指祿值，视需要决定是否 
做规一化处理，给出规一化单位。输出原始数据矩阵， 
各因素关联度并依照联度大小排序。 

=、变量及»组含义 

N : 寻找主要因素时为数据序列样本数;判别分类 


时为所用指标个数。 

M : 欲分析因素的个数+1;判别分类时为系统状 
态分类个数+1。 

X ( M ， N ): 原始数据矩阵 
\ y ( M ， N ): 差矩阵 K ( I ): I 因素的关联度 
四、示例 

关联分析的用途主要是从影响系统的诸因素中根 
据关联度确定关联程度大小。另一个用途是根据各有 
关因素的指标值对系统可能出现的状态进行判别分 
析。 

例如:为从必电图五个不同指标 Di 、 D 2、 D 3、 D 4、 D 5, 
中找出区分健康人、硬化症患者、冠私病患者等兰类人 
的方法，分别取 ni = 11,112= 7 , n 3 = 5的二组样本，其各 
项指标均数见表1。现有就诊者必电图指标如表1中 Xo 
各项所示，试判断就诊者是健康人，还是硬化症患者、 
冠私病患者： 


表 1也电图指标分类均数及待诊指标 


指 标 

一 

二 


四 

五 

待诊序列 Xo 

5.76 

267. 88 

13.72 

4. 71 

10. 66 

分类均数 






健康人更 

7. 4373 

238. 555 

13. 8918 

5. 4745 

7. 67% 

硬化症玄 

t 8886 

342. 847 

14.9971 

5. 2586 

9. 2471 

冠屯、病 Xs 

5. 254 

310.236 

18. 176 

4.888 

10.492 

• 


本例中 M =4， N =5, 规一化单位分别为1，100，10, 
1，1 输入数据及输出结果为 


RUN 

5. 76 267. 88 13. 72 4. 71 10. 66 

7. 4373 238. 555 13.8918 5. 4745 7.67% 

氏8886 342. 847 14.9971 5. 2586 9. 2471 

氏254 310.236 18. 176 4.888 10.492 

GUI YI HUA ?(1/0)1 

T ( l ) = ?l T (2) = ?100 T (3) = ?10 T (4) = ?l 
T (5) = ?l 

K ( l ) = . 66 K (2) = .73 

K (3) = .83 
X (3)> X (2)> X (1) 

冠也、病数列 X <3) 与待诊数列关联度最窩，所 W 诊 
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为冠心病。 

为了检验分析效果，对本例中 23 例原始诊断样本 
进行回代，关联分析结果如下： 

表2 23 例诊断样本关联分析判别结果 


关联分析 
判别分类 

原 

分 

类 

合计 


二 

三 

一 

11 

1 

1 

13 

二 

■■ 

5 

0 

5 

二 

■I 

1 

4 

5 

合计 

11 

7 

5 

23 


关联分析判别有20例和原分类相符，3例不符，符 
合率为 20/23 = 86. 96%，高于根据判别函数回代结果 
(18/23 = 78. 26%)。 

10 READ M,N 

20 DIM X(M,N)，Y(M,N)，K(M),KO(M)，T(N) 

30 MA = 0：MI=1000：B=.5 
40 FOR 1=1 TOM 
50 FOR J= 1 TO N 
60 READX(I,J) 

70 PRINT TAB((J-1) * 10+(10-LEN (STR $ (INT 
(X(I,J)))))-((J>4*40));X(I，J); 

80 NEXT J 
90 PRINT 

100 NEXT I ' ■ 

110 INPUT"GUI YI HUA?(1/0)，’;A 

120 IF A = 0 THEN 200 

130 FOR J= 1 TO N 

140 PRINT"(Tr;J; 巧) =：INPUT T(J) 

150 NEXT J 
160 FOR 1=1 TON 
170 FOR J=1 TO M 
180 X(J,I)=X(J，I)/T(I) 

190 NEXT J,I 

200 FOR 1=1 TO M 

210 FOR J==l TO N 

220 X(I，0)=X(I，0)+X(I，J) 

230 NEXT J 

240 X(I,0) = X(I,0)/N 

250 NEXT I 

260 FOR 1=1 TOM 

270 FOR J=1 TO N 


280 X(I,J)=X(I,J)/X(I,0) 

290 NEXT J，I 

300 FOR 1=1 TON 

310 FOR J=2 TO M 

320 Y(J,I)= ABS (X(1,I)-X(J,I)) 

330 IF MA<Y(J,I) THEN MA=Y(J,I) 

340 IF MI>Y(J,I) THEN MI=Y(J,I) 

350 NEXT J 
360 NEXT I 
370 FOR 1=2 TO M 
380 FOR J= 1 TO N 

390 K(I)=K(I) + (MI + B * MA)/(Y(I,J)+B* 

MA) 

400 NEXT J 

410 K(I)=K(I)/N ' 

420 K(I)= INT (K(I) * 100+. 5)/100 
430 PRINT "K(";I-1;，，）=，，;K(I), 

440 NEXT I 
450 PRINT 

460 FOR 1=1 TO M；KO(I)=I；NEXT I 
470 J=M 

480 IF J< =1 THEN 590 
490 J= INT (J/2) 

500 C=0 

510 FOR K = 1 TO M-J 
520 I=K+J 

530 IF K(K)< =K(I) THEN GOTO 560 

540 K0(0)=K(K)：K(K)=K(I)：K(I)=K(O)：C=l 

550 K0(0)=K0(K)；K0(K)=K0(I)；K0(I)=K0(0) 

560 NEXT K 

570 IF C=1 THEN 500 

580 GOTO 480 

590 FOR I = M TO 2 STEP -1 

600 PRINT"X(";KO(I)-l;M)，，, 

610 IF I<>2 THEN PRINT">’’； 

620 NEXT I 
630 PRINT； END 
640 DATA4,5 

650 DATA 5. 76,267. 88,13. 72,4. 71,10. 66 
660 DATA 7. 4373, 238, 555, 13. 8918, t 4745, 7. 
6736, 6. 8886, 342. 847, 14. 9971, 5. 2586, 9. 
2471,5. 254,310. 2% , 18. 176,4. 888,10. 492 
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•实用程巧 • 


使义 KSVC ： 轉带黨 mm 化打先 


广西师范大学唐汉雄 


《中华学习机》 90 年第 2 期介绍了通过修改扩充 
DOS 命令来运行 W B 类文件形式存盘的 A 类文件的 
方法。本文将介绍另一种使 basic 程序也能 BRUN 的 
方法，并给出一个辅助程序。 

我们知道， basic 程序通常是从 $801 处开始存 


084C- 4C DF A4 

7FD ： 4C 30 08 
3D0G 

BSAVE P0,A$ 7FD,L$52 
BRUN PO 


JMP $ A4DF 
;在程序首加入姚转语句 

;将程序 WB 文件存盘 
；W BRUN 执行程序 


放的，如果找出结束地址，将这一区域的内容用 
"BSAVE" 存起来，就可保存了全部的源程序。但仅此 
还不能使程序正常运行，还必须重新设定一些零页指 
针。需重新设定的指针有程序起始位址（$ 67, $ 68) ， 
程序结束位址 （ $AF ， $ B 0)， 变量首位址（$69, 
$6 A )， 数组首位址 （$6 B ，$6 C ) 和数组尾位址 
($6 D ,$6 E ) 。而变量首、数组首尾指针在程序运行前 
都指向程序结束处。重新设定指针后要在监控状态下 
运行程序，也不能用 RUN 命令，只能从 RUN 的进入 
点$ 0566或$ A4DF 来执行。若不想从头开始执行程 
序，只要先将执行的行号放入 （ $ 50, $ 51) 单元，再用 
JSR $ D 9" 和 JMP $ D 7 D 2 (GOTO 的进入点 ) 即可。 

W 下面例子说明使 basic 程序能 BRUN 的方法。 
10 PRINT ; PRINT" $ A4DF RUN ，， 

20 PRINT ； PRINT" $ D7D2 GOTO" 

30 END 


$ A4DF RUN 
$ D 7 D 2 GOTO 

如果需从第 20 句开始执行程序，可将上面 JMP 
$ A 4 DF 删去或改为 NOP ， 并加上如下指令即可。 


084C- 

EA 


NOP 


084D- 

EA 


NOP 


084E- 

EA 


NOP 


084F- 

A9 

14 

LDA 

# $ 14 

0851- 

85 

50 

STA 

$50 

0853- 

A9 

00 

LDA 

# $00 

0855- 

85 

51 

STA 

$51 

0857- 

20 

41 

D9 

JSR$D941 

085A- 

4C 

D2 

D7 

JMP $ D7D2 


上述方法虽然简单实用，但每转换一个 BASIC 程 
序都必须人为追加跳转语句和指针设定程序段，存盘 
时还需人工计算文件长度，显得极为不便。笔者为此 


0067- 01 

0068- 08 30 08 30 08 30 08; 程序首地址为 $ 801 
程序尾地址为$ 830 
将下面程序段追加在程序尾 W 重新设定零页指针 


0830- 

A9 

01 

LDA 

持 $01 

0832- 

85 

67 

STA 

$67 

0834- 

A9 

08 

LDA 

# $08 

0 扣 6- 

85 

68 

STA 

$68 

0838- 

A9 

08 

LDA 

# $08 

083A- 

85 

6A 

STA 

$6A 

083C- 

85 

6C 

STA 

$6C 

083E- 

85 

6E 

STA 

$6E 

0840- 

85 

BO 

STA 

$B0 

0842- 

A9 

30 

LDA 

拌 $30 

0844- 

85 

69 

STA 

$69 

0846- 

85 

6B 

STA 

$6B 

0848- 

85 

6D 

STA 

$6D 

084A- 

85 

AF 

STA 

$ AF 


编写了一个能自动完成更改和存盘的 (AUTO RUN- 
BRUN) 辅助程序。使用此程序的方法极为简单，只须 
先 BRUN 一次本程序 W 装入程序并设定&向量，然 
后将需转换的 basic 程序 LOAD 入内存，再执行& 
[行号]命令，则程序从指定行号开始执行，省略行号 
时设定程序从头开始执行。执行&•[行号]命令后计算 
机就会自动完成指令追加存盘工作。程序设定存盘时 
首先 W 文件名 P 0 存盘，后再次执行&[行号]命令 
时就会冠 W Pi ， P 2, …来存盘。每次存盘时还会将文件 
名、首地址和文件长度等显示在屏幕上。 

用这种方法将 basic 程序转变为二进制程序，只 
需占用 BASIC 程序首前立个单元和程序尾后不足 
$ 30个单元，不会影响原程序的结果，且操作简单方 
便，自动化程度髙，也是一种初级程序保护方法，它与 
其它程序保护法如 LIST 、 CTRL - C 、 RESET 屏蔽等巧妙 
配合就可 W 制造出一个很难被 LIST 的程序。将本程 
序驻留在 DOS 系统盘上，相信会能给你带来方便。 

附: AUTO RUN-BRUN 程序 
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• 实用程 巧 • 


用外却今令类现 BASIC 命令巧汉学化 

四川雅安机电设备厂利、光煮 


在小蜜蛛 《 XMF — I 》 型微机上，用外部命令可实现 
BASIC 命令的汉字化，即可 V 乂用自己定义的命令码眷 
代 BASIC 的关键字（出错信患也可 V 乂由用户义义的命 
令码眷代，本文先谈外部命令的眷代）。我们称 BASIC 
关键字之外的命令码为外部命令，它可 V 乂用新的英文 
单词，也可 W 乂用汉语拼音或汉字。被眷代的关键字将 W 乂 
相启的用户义义的命令予 V 乂亟示，而运行时仍化行原 
关键字的功能。如全部关键字均代 V 乂汉字，则可使 ba ¬ 
sic 程序成为完全的汉字 BASIC 程序。 其使用方面与 
原 BASIC 完全一致。 

要实现 BASIC 的汉字化，应先在电脑中拘造一张 
"汉化 M 的外部命令衣。并莉零巧的 $ EB ，$ EC 内的地 
址指针，使其指向表的首地化。 

汉字在 XMF - I 计鼻机内是用国标码衣示的。要造 
汉化的外部命令衣，必须先莉想眷代 BASIC 关键字的 
汉字的国标码查出，再同原关键字的机内码一起，按一 
义顺序造外部命令衣。如>用汉字"完 W 眷代原关键字 
" END ” 。汉字"完，’的国标码为 $4 D 和 $6 A , 而 " END " 
的内码为$ 80。我们若从地址$ 7600开始造外部命令 


衣，其步雜如下：1.在监控状下，先骑衣的普地址送入 
$ EB 和$ EC 单元。再莉外部命令衣的机器码送入电 

脑。7600 : 00 00 04 FF 4 D 6 A 80 . 。其中 

第一、二两字节，如有外部出错信患衣，則为外部出错 
信患表的首化，否则这两个字节都为$00。第王字节到 
第本字节为 "EN D " 的对照信患。其中，首字节为对照信 
患的长$04,最后字节为关键字代码，其余字节为外部 
命令码， FF 是国标码引导符。如此继续下去，最后送入 
$00,表示外部命令表结禾。 

机器码外部命令表清单附后。衣中，骑常用的 BA - 
SIC 命令56个，用汉字眷换。至此，无论由破益调入原 
先存盘的 basic 程序，或由键盘输入的 BASIC 的 "汉 
化"了。用 L 投 T 命令列清单时 BASIC 命令便显示为汉 
字，这对不熟悉西文 BASIC 的人们，对照学习是很方 
便的。 

机器码送入电脑后，可巧 " BSAVE " WBMLB，A 
$7600， L $13 FM 命令存盘。使用时巧入内存，并為首 
地址置入零页的$邸和 $ EC 单元即可。 


9000- A 9 4 C 8 D F 5 03 A 9 10 8 D 
F 6 03 A 9 90 8 D F 7 03 60 
9010- F 0 24 A 9 31 8 D A 4 90 A 9 
2 D 8 D 82 90 A 9 EA 8 D 16 
9020-91 8 D 17 91 8 D 18 91 20 
7 B DD 20 52 E 7 8 D 0 D 91 
9030- 8 C 1 A .91 4 C 4 F 90 A 9 4 C 
8 D 16 91 A 9 DF 8 D 17 91 
9040- A 9 A 4 8 D 18 91 A 9 23 8 D 
A 4 90 A 9 1 F 8 D 82 90 38 
9050- A 5 67 8 D FB 90 E 9 04 85 
06 A 5 68 8 D FF 90 E 9 00 
9060-85 07 A 5 AF 8 D 0 D 91 8 D 
7 E 90 8 D 28 91 A 5 B 0 8 D 
9070-03 91 8 D 7 F 90 8 D 29 91 
A 2 00 BD FA 90 9 D 00 08 
9080- E 8 E 0 20 DO F 5 AO 00 B 9 
27 91 91 06 C 8 CO 03 DO 


90 B 0-06 A 5 07 AO 00 20 DA 90 
A 6 08 A 5 09 AO 07 20 DA 
90 C 0-90 A 2 00 BD 2 A 91 9 D 00 
02 20 ED FD E 8 EO 17 DO 
90 D 0- F 2 20 CD 9 F EE 31 91 4 C 
DO 03 20 E 2 90 8 A 20 E 2 
90 E 0-90 60 48 4 A 4 A 4 A 4 A 20 
ED 90 68 29 OF 09 BO C 9 
90 F 0 -BA 90 02 69 06 99 35 91 
C 8 60 A 9 00 85 67 A 9 00 
9100-85 68 A 9 00 85 6 A 85 6 C 
85 6 E 85 BO A 9 00 85 69 
9110-85 6 B 85 6 D 85 AF 4 C DF 
A 4 A 9 00 85 50 A 9 00 85 
9120-51 20 41 D 9 4 C D 2 D 7 4 C 
00 00 C 2 D 3 Cl D 6 C 5 AO 
9130- D 0 BO AC Cl A 4 00 00 00 
00 AC CC A 4 00 00 00 00 


9090- F 6 38 AD OD 91 ED FB 90 9140- 8 D 

85 08 AD 03 91 ED FF 90 
90 A 0-85 09 18 A 9 31 65 08 85 

08 A 9 00 65 09 85 09 A 6 ’ 
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如需要一张中西文 basic 命令对照表，也很简 
单。只需在 BASIC 状态下，键入两个相同的西文 BASIC 
命令，一个加双引号，一个不加双引号，再•打入 LIST 
命令，列出的清单上，加双引号的 basic 命令仍为西 
文显示，不加化引号的 BASIC 命令，则显示汉字命令。 
这样，《中西文 BASIC 命令对照衣》便亞示出来，既可 
存盘，亦可打< 印。 

后面，附上用上述方法打印的《中西文 BASIC 常 
用命令对照衣》，并附一段 BASIC 程冷在"汉化 M (输入 
外部命令衣机器码)前后的对此。 


7600- 

00 

00 

04 

FF 

4D 

6A 

80 

04 

7608- 

FF 

34 

53 

81 

04 

FF 

54 

59 

7610- 

82 

04 

FF 

4A 

7D 

83 

04 

FF 

7618- 

3C 

7C 

84 

04 

FF 

35 

3D 

Cl 

7620- 

04 

FF 

49 

犯 

85 

04 

FF 

4E 

7628- 

2C 

86 

04 

FF 

36 

41 

87 

07 

7630- 

FF 

35 

4D 

FF 

4D 

3C 

88 

04 

7638- 

FF 

4E 

44 

89 

04 

FF 

33 

76 

7640- 

8A 

04 

FF 

48 

6B 

8B 

04 

FF 

7648- 

35 

77 

8C 

07 

FF 

3B 

2D 

FF 

7650- 

3F 

69 

8D 

07 

FF 

3A 

61 

FF 

7658- 

3B 

2D 

8E 

07 

FF 

4A 

7A 

FF 

7660- 

3B 

2D 

8F 

05 

FF 

4D 

3C 

B2 

7668- 

90 

07 

FF 

38 

5F 

FF 

4D 

3C 

7670- 

91 

07 

FF 

38 

5F 

FF 

49 

2B 

7678- 

92 

07 

FF 

3B 

2D 

FF 

35 

63 

7680- 

93 

04 

FF 

4F 

54 

94 

04 

FF 

7688- 

32 

41 

95 

04 

FF 

3A 

61 

96 

7690- 

04 

FF 

47 

65 

97 

04 

FF 

50 

7698- 

7D 

98 

04 

FF 

31 

36 

99 

04 

76A0- 

FF 

49 

2B 

AO 

04 

FF 

4A 

7A 

76A8- 

A2 

07 

FF 

49 

4F 

FF 

4F 

5E 

76B0- 

A3 

07 

印 

4F 

42 

FF 

4F 

5E 

76B8- 

A4 

04 

FF 

48 

25 

AB 

07 

FF 

76C0- 

56 

34 

印 

50 

50 

AC 

04 

FF 

76C8- 

48 

74 

AD 

04 

FF 

38 

34 

AE 

76D0- 

04 

FF 

57 

2A 

BO 

04 

FF 

37 

76D8- 

35 

B1 

04 

FF 

'57 

22 

B2 

04 

76E0- 

FF 

4D 

23 

B3 

04 

FF 

30 

34 

76E8- 

B4 

04 

FF 

35 

48 

B5 

04 

FF 

76F0- 

57 

30 

B6 

04 

FF 

34 

66 

B7 

76F8- 

04 

FF 

53 

21 

BA 

04 

FF 

50 

7700- 

78 

BB 

04 

FF 

31 

6D 

BC 

04 

7708- 

FF 

37 

4F 

BF 

04 

FF 

54 

72 

7710- 

C4 

04 

FF 

54 

5A 

C5 

04 

FF 

7718- 

37 

47 

C6 

04 

FF 

52 

46 

C7 

7720- 

04 

FF 

53 

6B 

CD 

04 

FF 

3B 

7728- 

72 

CE 

04 

FF 

33 

24 

E3 

07 

7730- 

FF 

34 

2E 

FF 

57 

73 

E8 

07 

7738- 

FF 

34 

2E 

FF 

53 

52 

E9 

00 


0 中西文 BASIC 常用命令对照表 
1 "END": 完 "FOR": 从 "NEXT": 再 "STEP "; 移 


" READ ": 读 

2 " INPUT "; 键 " DEL ": 删 " DIM "; 维 " GR ": 低图 
" TEXT ，，: 文 

3 "PR 好，，：出 "IN 林，，：入 " CALL ，，： 调 " PLOT ，，： 画块 
"民 EM ，，: 注 ’ 

4" HLIN " :横画" VUN " :竖画" HGR 2" :图 2" HGR " :髙 
图 " DATA "; 数 

5" HCOLOR =":髙色" HPLOT " ;画点 DRAW " ;显" 
XDRAW " :擦 

6" HTAB" : 读 " VTAB" : 竖 " HOME" •• 清 " ROT 二 " ： 旋 " 
SCALE = ":后 

7" COLOR =":色" HIMEM :" 上限" LOMEM :"下限 " GO ~ 
TO ": 去 " IF ": 若 

8" RUN "; 扳行" RESTORE ": 复" COSUB "; 转" 
RETURN ": 返 " ON ": 按 

9" STOP " :停 " WAIT " :会 ' LOAD " :装 " SAVE " :存 " TO " : 
到 " AT ": 在 

10" PRINT " :印" CONT " ;续" L 投 T " ;表" NEW " :废" 
THEN " ;则'^01'":非 " AND " .与 " OR " :或 " LEN " :长" 
LEFTY " :幸左 " RIGHTY " ;串右 
未输入机器码时的程序： 

10 GR ; COLOR =5 
20 INPUT " 请输入分区数 N " ;N 
30 DIM D ( N ) 

40 S ==0 ；FOR 1=1 TO N 
50 READ D ( I ) : S = S + D ( I ) 

60 NEXT 
70 INT (28/ N ) 

80 HOME 
90 FOR 1=1 TO N 

100 FOR J =8+( I - l)*KTO 7+1 女 K 
110 IF N > 8 THEN 130 

120 VLIN 39 - D ( I ) 大 60/ S ,39 A T J ： GOTO 140 

130 VLIN 39 - D ( I ) * 80/ S , 39 AT J 

140 NEXT J 

150 NEXT I 

160 END 

170 DATA 30,13,24. 5,9,11. 6 

输入机器码后的程序： 

10低图:色5 

20键"请输入分区数 N";N 
30维 D ( N ) 

40 S =0: 从 1=1 到 N 
50读 D ( I ): S = S + D ( I ) 

60再 

70 INT 口 8/ N ) 

80 清 

90从1=1到 N 

100认 J =8+( I -1)* K 到7+1 * K 
110会 N >8 则 130 

120竖画 39-0(1) * 60/ S . 39在 J : 去 140 

130竖画 39_ D ( I ) * 80/ S ’,39 在 J 

140再 J 

150再 I 

160完 

170数30,13,24,5,9,11，6 
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•实用程序 • 


一戸； 4 V 、 、一、、 

為钱麵翁勢為 

浙江绍兴將山中学选勤. 


-、程巧简介 

想提高击键的速度和准确率，达到盲发的境界，是 
离不开击键训练璋序的帮助的。为此，笔者编写了此程 
序，它具有 W 下特点：（1)读键盘和时钟程序用6502机 
器语言编写，击键后程序响应速度极快，能满足快速训 
练的要求； （2) 提供呈种随机字符: a. BASIC 命令字符、 
B . 英文字符、 C . 键盘字符，供不同氷平者使用。其中 
BASIC 命令字符是随机地产生不同的 BASIC 命令，非 
常适用于巧学计算机者使用； （3) 功能修改、扩充十分 
方便。 

二、使用说明 

先把程序二 JIJIAN. OBJ 为文件名存入磯盘， 
再执行程序一，按提示选择功能 （1 〜 3) 即可运行。这时 
屏幕上出现一行随机字符和指向首字符的箭头 A ，若 
输入为 A 所指字符，则-指向下个字符，若不对，则响 
铃报警，并要求重入。按 ESC 键可退出本程序。在屏幕 
右上角有一时钟，记录练习的时候，练习完一行后，还 
会显示出错次数，若无错，则显示 "OK ! " 。 

由程序一产生一行随机字符，调程序二读取屏幕 
上箭头所指字符，并读键盘， W 比较所按键是否正确。 
修改程序 一70 句中 V 字母的值，可改变字符在屏幕上 
的显示位置，修改产生随祝字符的子程序，可产生不同 
要求的随机字符。 i 周用程序二时，内存$08单元放 V 
字巧的值，程序二返回时，$ 08中是本次练习的出错次 
数。程序二采用的是浮动地址，可存于内存中适当的地 
方。 

程序一 

3 REM , ESC TO QUIT 
5 PRINT CHR $ (4) ;"BLOAD JIJIAN. OBJ" 

7 DIM A $ (50) 

10 HOME 

20 VTAB 9 ； HTAB 5:PRINT"1. BASIC order lettes" 

30 VTAB 11 ： HTAB 5 ： PRINT "2. English letters" 

40 VTAB 13: HTAB 5 ： PRINT"3. Keyboard letters" 

50 VTAB 17:HTAB 7: PRINT "WHICH 
WOULD YOU LIKE?(l-3)" ; : GET N 
60 IF N<1 OR N>3 THEN PRINT CHR $ (7 )： GOTO 
50 

70 HOME：A $ ="":V=14:POKE 8, V 


80 ON N GOSUB 150, 200,200 

90 CALL 768 

100 VTAB 3： HTAB 28 

no IF PEEK(8)<>0 THEN PRINT PEEK (8);" mis - 
takes " ;CHR $ (7) : GOTO 130 
120 PRINT"OK：!";CHR$(7);CHR$ (7);CHR$ (7) 
130 VTAB 23: HTAB 10； PRINT" PRE 泌' ESC' TO 
QUIT, ANYOTHER TO CONTINUE" ; : GET N$ 

140 IF ASC (N$ ) = 27 THEN END 
145 GOTO 70 

150 FOR I = 1 TO 42； READ A $ (I): NEXT I： RE¬ 
STORE 

160 FOR 1=1 TO 42 

170 A$=A$+A$ (RND(1)* 42+1) 

180 IF LEN (A $ ) >40 THEN A $ = LEFT $ (A $，LEN 
(A$)-LEN (A$ (RND(0)*42+1))):VTAB V: 
PRINT A $ : RETURN 
190 NEXT 

200 FOR 1=1 TO 40：A$ =A$ +CHR$ (RND (1)* 
* (26+(N=3)* 33) + 65-(N = 3)*33):NEXT 

210 VTAB V:PRINT A$ 

220 RETURN 

299 DATA LET , INPUT ，反 EAD，DATA , RESTORE , 
PRINT ,GOTO ,IF ,THEN ,FOR ,TO ,STEP , 
NEXT , GOSUB , RETURN，ON ,AND ,OR ,NOT 

300 DATA ABS( ,SQR( ,EXP( ,LOG( ,SIN( ,COS(, 
TANK ,ATN( ,INT( ,SGN( ,RND( ,DEF ,DIM , 
VTAB ,HTAB ,TAB ,SPC ,REM ,UST ,NEW , 


HOME ,RUN ,END 

程序二 


0300— 

A9 

25 

85 

09 

A9 

BO 

85 

FA 

0308- 

8D 

A6 

04 

85 

FB 

8D 

A5 

04 

0310- 

85 

FC 

8D 

A3 

04 

A5 

08 

20 

0318- 

Cl 

FB 

A5 

28 

85 

06 

A5 

29 

0320- 

85 

07 

C6 

08 

A5 

08 

20 

Cl 

0328 - 

FB 

AO 

00 

84 

F9 

84 

08 

A9 


(下转 33 页) 
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像满嘛床 狀满给菌 庙^其 软件 

沾巧鄉 苑大拳项国雄 ’ 


一、设计思想 

低清晰度状态下图形的获得是利用低清晰度绘图 
语句编写程序来实现的。即，每画一点，就必须写出一 
段相应程序，图形的修改也得借助于程序。要确定好位 
置，事先要选定好坐标。为了克服这种不足，我们设计 
出了这个工具软件，通过对少数几个键的控制，使光标 
能上、下、左、右、左上、左下、右上、右下移动，从而达到 
绘制所需图形的目的。它使操作者就象用掌在屏幕上 
绘图一样方便。所绘制图形能立即存於， 12 JI 备调用。 
二^软件使用说明 

程序运行，首先出现下列菜单： 

(C) CHANGE SKETCHING COLOR 
( 反 ） MOVE RIGHT 

(D) MOVE DOWN 

(L) MOVE LEFT 
(V)MOVE UP 
(S)SAVE THE SKETCH 
(G)GET A SKETCH 

(E) ERASE THE SCREEN TO ANY COLOR 

(M) PRINT THE MENV 
(Q)QUIT THE PROGRAM 
(I)UP AND LEFT 
(-)UP AND RIGHT 
(Z)DOWN AND LEFT 
(L)DOWN AND RIGHT 
PRESS<RETURN>Tb CONTINUE 

按 RETURN 键，便在屏幕中必处有一光^于、闪烁， 
等候你按相应键，移动光标。如果你绘图时，:记了移 
动光标控制，则只须按一下 M 键，上述内容立即呈现 
在屏幕上，待按 RETURN 后，又回到原来状态， W 便继 
续绘图。同时，在绘图中还可随时改变颜色，并可对園 
形进行修改。绘好图形后，只须键便存入磁盘，并 
可用 G 键调出图形， W 检査存化的图形，使用方便。 

=、程巧介绍 

程序全部采用模块结构，各部分完成特定功能。 
250〜305决定光标移动方向； 

315〜390使光标上移和左移； 

400〜440使光标右移, 

450〜480使光标下移； 


500 〜 570 设定光标颜色； 

600 〜 640 使光标向右上方移动； 

710 〜 740 使光标向左上方移动； 

810 〜 840 使光标向左下方移动； 

910 〜 940 使光标向右下方移动； 

1000 〜 1060 画点； 

2010 〜 2050 将画好的图形存盘； 

2110 〜 2150 将图形从盘中调入内存； 

2210 〜 2260 变换光标颜色； 

2405 〜 2450 显示菜单命令表； 

3000 〜 3060 当显示命令表时，隐去图形，一会儿，图形 
又重新出现。 

程序： 

100 HIMEM ； 34000 

110 TEXT：HOMEjGOSUB 2405 

120 HOME：GR 

130 D$ =CHR$ (13)+CHR$ (4) 

140 C= 15 ： B=0 

150 COLOR=CsH= 20 : V= 20：GOSUB 1010 
160 IF PEEK(-16384)>127 THEN GET A $ jPOKE - 
16%8,0 : GOTO 250 
170 COLOR=C：GOSUB 1010 
180 COLOR=B：GOSUB 1010 
190 GOTO 160 

250 IF A $ = "Q，，THEN PRINT "RUN 130 TO 
RESTART WITH THE SAME SKETCH，，:END 
260 IF A $ ="U ， 叮 HEN GOSUB 320 
270 IF A $ ="L ， 叮 HEN GOSUB 
280 IF A $ = 叩叮 HEN GOSUB 410 

290 IF A $ ="D ， 叮 HEN GOSUB 460 

291 IF A$ ="C，’THEN F= 1 .BEG = 1024 ： EN=2047 
: DEST=34024：GOSUB 3010 ： GOSUB 510 

292 IF A $ ="-，，THEN GOSUB 610 

293 IF VAL(A$) = 1THEN GOSUB 710 

294 IF A $ ="Z"THEN GOSUB 810 

295 IF A$ =‘7"THEN GOSUB 910 

298 IF A$ ="S"THEN GOSUB 2010 

299 IF A$ ="G 叮 HEN GOSUB 2110 

300 IF A$ ="M，，THEN F= 1 :BEG = 1024 : 

EN=2047sDEST= 34024：GOSUB 3010: 
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GOSUB 2400 

305 IF A$ ="E，，THEN GOSUB 2210 
310 GOTO 160 
320 HNW=H ； VNW=V-1 ： COLOR=B；GOSUBlOlO 
330 H=HNW : V=VNW : COLOR - C : GOSUB 1010 
340 RETNRN 

355 HNW = H—1 ； VNW=V 

360 COLOR=B；GOSUB 1010 

365 H = HNW : V=VNW : COLOR=C : GOSUB 1010 

370 RETURN 

410 HNW=H-f-l ： VNW=V 

420 COLOR=B；GOSUB 1010 

425 H = HNW : V = VNW : COLOR=C : GOSUB 1010 

440 RETURN 

460 HMW=H:VNW=V+1 

465 COLOR=B：GOSUB 1010 

470 H=HNW : V=VNW : COLOR=C : GOSUB 1010 

480 RETURN 

510 GR；FOR 1=0 TO 31 ； COLOR=I/2；VLIN 0,39 AT 
I；NEXT I 

520 VTAB 21 .PRINT“0 12345678911111 r ， 
530 VTAB 22；HTAB 21 ： PRINT**0 1 2 3 4 5 " 

540 VTAB 24 : PRINT^SKETCHING COLOR (0-15 )，，；； 
INPUT B 

550 PRINT : PRINT : PRINT : PRINT 

560 BEG=34024:EN=%047;DEST=1024; 

GOSUB 3010 
570 RETURN 

595 PRINT I PRINT : PRINT : RETURN 

610 HNW=H+1:VNW=V-1 

620 COLOR 二 B;GOSUB 1010 

630 H = HNW : V=VNW : COLOR=C : GOSUB 1010 

640 RETURN 

710 HNW=H-1 ： VNW=V-1 

720 COLOR = B ； GOSUBl 010 

730 H = HNW ： V=VNW ； COLOR=C ： GOSVB1010 

740 RETURN 

810 HNW=H-ljVNW = V-f 1 

820 COLOR = B ； GOSUBl 010 

830 H=HNW : V=VNW ； COLOR=C : GOSUB 1010 

840 RETURN * ' 

910 HNW=H+1:VNW=V+1 

920 COLOR=BiGOSUB 1010 

930 H = HNW . V=VNW ： COLOR=Cs GOSUBl010 

940 RETURN 

1010 IF VNW 〉 39 THEN VNW = 39 ： PRINT CHR 


$ (7) 

1020 IF HNW >39 THEN HNW = 39 ； PRINT CHR 


1030 IF VNW<0 THEN VNW=0；PRINT CHR$ (7) 
1040 IF HNW<0 THEN HNW =0:PRINT CHR $ (7) 
1050 PLOT H,V 
1060 RETURN 

2010 PRINT: PRINT: PRINT" NAME OF SKETCH TO 
EB SAVED" : PRINT" PRESS < RETURN > TO RE¬ 
TURN TO SKETCHING" ： INPUT NA $ 

2030 IF NA $ =" "THEN RETURN 

20% PRINT : PRINT : PRINT : PRINT 

2040 PRINT D $ ;"BSAVE";NA$ ,A1024,L1024" 

2050 RETURN 

2110 ONERR GOTO 299 

2120 PRINT ； PRINT ； PRINT " NAME OF THE 
SKETCH" ; INPUT NA $ 乂 • 户 

2130 IF NA$ =" "THEN PRINT : PRINT : PRINT : RE¬ 
TURN 

2140 PRINT D $ ;"BLOAD" ;NA $ 

2145 HTAB 21 : PRINT；RETURN 
2210 PRINT" WHAT COLOR" ; ； INPUT B 
2215 PRINT ： PRINT ； PRINT：PRINT 
2220 COLOR=B 

2230 FOR 1 = 0 TO 39：HLIN 0,39 AT I；NEXT I 
2250 COLOR= 15；GOSUB 1010 
2260 RETURN 
2405 TEXT：HOME 

2410 PRINT" (C) CHANGE SKETCHING COLOR": 
PRINT" (R) MOVE RIGHT" :PRINT" (D) 

MOVE DOWN" ;PRINT" (L)MOVE LEFT": 
PRINT" (U) MOVE UP" 

2420 PRINT" (S) SAVE THE SKETCH" : PRINT" (G) 
GET A SKETCH" : PRINT" (E)ERASE 
THE PROGRAM" 

2430 PRINT" (l)UP AND LEFT" :PRINT" (-)UP AND 
RIGHT" : PRINT" (Z)DOWN AND LEFT" 

I>RINT" (/)DOWN AND RIGHT" 

2450 PRINT ： PRINT " PRESS < RETURN > TO 
CONTINUE" : GET A $ 

2460 PRINT；IF F=0 THEN RETURN 
2470 GR : BEG : 34024 : EN = 35047 : DEST= 1024 
: GOSUB 3010 
2480 VTAB 22：HTAB 1 
2490 RETURN 

3010 POKE 768,216；POKE 769,160；POKE 770,0 


$(7) 
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: POKE 771 ， 76: POKE 772,44 ： POKE 773, 254 
3020 POKE 60,BEG-INT(BEG /256) * 256: 

POKE 61，INT (BEG/256). 

3030 POKE 62 ， EN-INT(EN/256) * 256 ； 


3040 POKE 66,DEST-INT(DEST/256) ^ 256 
: POKE 67,INT(DEST/256) 

3050 CALL 768 
3060 RETURN 


POKE 63 ， INT(EN/256) 本程序已在中华学习机和 APPLE H 机上通过 

II ♦川 I ♦川 ♦川 l ♦ llll ♦川 l ♦ llll♦l 川♦川 I ♦川 I ♦川 w 川川 

- 苹果园地 • 


给 APPLE 机加上屏幕打印功能 


曲阜师范大学物理系狄振强 


大家知道， IBM 机的屏幕打印 （PRINT SCREEN) 
功能在使用中非常方便，通过按键操作即可随时将屏 
幕上的文字、图形在打印机上印出。 APPLE 机的屏幕 
可显示文本文宇、低分辨率图形、髙分辨率图形等许 
多画面，但却不能随意将这些画面打印出来(仅有的 
高分辨率图形打印也必须经过多步复杂操作）。 

针对这种情况，笔者编制了一段程序（附后），给 
APPLE 机加上了由键盘直接控制的屏幕打巧功能，使 
其能随意巧巧出文本文字、低分辨率图形、高分辨率 
图形一、二页等各种画面。从而进一步发挥了打印机 
的效能，满足了用户的需要。 

程序中各键的功能及使用方法： 

程序中定义 CTRL —— A 为文本屏幕硬拷贝命令 
键。 CTRL —— W 为低分辨率图形硬拷贝命令键。 
CTRL —— R 为高分辨率图形第一页硬拷贝命令键。 
CTRL —— T 为高分辨率图形第二页硬拷贝命令键。在 
任何时候，只要用户按下这些键，即可在打印机上分 
别将文本或图形拷贝下来。 

程序位于内存 $8000 至 $ 810C 地址中，执行时 
它将首先修改 DOS ， 使其能直接截取并处理键盘信 
号，从而使硬拷贝操作能变为键盘级控制。 

使用时首先用 BRUN 命令将程序从磁盘中调出 
执行，则《后即可用定义的各个拷贝命令键进行操 
作。其功能及效果与 IBM 化上的 "PRINT SCREEN ” 键 
几乎完全一样。 

屏幕硬拷贝控制程序： 

8000- A9 4C 犯 BA 9E A9 10 8D 

8008- BB 9E A9 80 8D BC 9E 60 

8010- 2C 00 C0 10 FB 48 98 48 

8018- 8A 48 AD 00 C0 C9 92 F0 


8020- 

14 

C9 

94 

FO 

18 

C9 

81 

FO 

8028- 

1C 

C9 

97 

FO 

IF 

68 

AA 

68 

8030- 

A8 

68 

6C 

38 

00 

A9 

01 

20 

8038- 

04 

81 

18 

90 

12 

A9 

02 

20 

8040- 

04 

.81 

18 

90 

OA 

20 

5A 

80 

8048- 

A9 

01 

DO 

03 

20 

68 

80 

68 

8050- 

AA 

68 

A8 

68 

2C 

10 

CO 

4C 

8058- 

10 

80 

A9 

F3 

8D 

97 

80 

A9 

8060- 

18 

8D 

Cl 

80 

20 

86 

80 

60 

8068- 

A9 

E5 

8D 

97 

80 

A9 

14 

8D 

8070- 

C1 

80 

A9 

05 

8D 

D6 

80 

20 

8078- 

CB 

80 

20 

86 

80 

A9 

OA 

8D 

8080- 

D6 

80 

20 

CB 

80 

60 

A5 

28 

8088- 

48 

A5 

29 

48 

A2 

00 

8A 

20 

8090- 

C1 

FB 

AO 

00 

B1 

28 

20 

F3 

8098- 

80 

C8 

CO 

28 

90 

F6 

A9 

OD 

80A0- 

20 

FB 

80 

A9 

OA 

20 

FB 

80 

80A8- 

AD 

97 

80 

C9 

F3 

FO 

10 

*C9 

80B0- 

E5 

DO 

07 

A9 

EO 

8D 

97 

80 

80B8- 

DO 

D4 

A9 

E5 

8D 

97 

80 

E8 

80C0- 

E0 

18 

90 

CA 

68 

85 

29 

68 

80C8- 

85 

28 

60 

A9 

IB 

20 

FB 

80 

80D0- 

A9 

41 

20 

FB 

80 

A9 

09 

20 

80D8- 

FB 

80 

A9 

OA 

20 

FB 

80 

60 

80E0- 

29 

F0 

18 

90 

02 

29 

OF 

C9 

80E8- 

00 

DO 

04 

A9 

20 

DO 

02 

A9 

80F0- 

84 

DO 

OS 

29 

7F 

C9 

20 

BO 

80F8- 

02 

69 

40 

2C 

Cl 

Cl 

30 

FB 

8100- 

犯 

90 

CO 

60 

8D 

79 

07 

A9 

8108- 

91 

20 

00 

Cl 

60 
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•巧□技术 • 

实现 APPLE - I 数据快获取的一般方法 

四川大学 胡劾莖李新唐代全 


采用硬件直接将外设数据送入 RAM 而不经 CPU 
的 DMA 传送方式是缩短数据传送时间，实现数据快 
获取的愤用方法。 

APPLE- H 微机的 DMA 能力较弱，它只提供了开 
发 DMA 的部份条件而并未提供一个^善的现成的 
DMA 功能，因此若要在 APPLE — I 上实现 DMA 的数 
据快获取，须完成类似自制一个 DMA 那样的工作 。 W 
下就实现 APPLE — I 数据快获取的一般方法作衙单 
的介绍。 

— 、 Apple — 1 DMA 的时序 

RAM 的 DMA 读写时序是实现 DMA 数据传送的 
关键。 

假设我们通过自制的 DMA 控制器将外设数据直 
接送入 RAM, 如图一所示， DMA 传送数据的正确流程 
应如下所述： 

1. 外设数据准备好，发出 DMA 送数申请信号 

DRQo - 

2. DMA 控制器接受 DRQ ， 等待当前机器周期结 
束时 (0 。下降沿)在 A 点向外设发出应答信号 DCK 。 

3. DCK 同时作为 5S 反信号被加於主祝板扩展槽 
22 脚 (DMA), 强迫 Apple— I 进入 DMA 周期，参照主 
机板线路图，当预拉下 a 后 00 被禁止送 6502,6502 
停止运行，数据总线，地址总线， R/ 八线被悬浮， A 扩 
pie— I 总线控制权由 CPU 交与 DMA 控制器。 

4. 在 A 点稍后， DMA 控制器同时还发出地址信 
号 , DMA 地址借助於 APPLE- I 主电路板完成地址译 
码。 DMA 地址译码的过程与 6502 地址译码的过程是 
一样的，在每一个 DMA 周期，地址多路转换器交替地 
给出显示器地址和 DMA 地址， 01 周期，给出显示地 
址， 0D 周期给出 DMA 地扯，而它们又是分时地按 7 
位行地址巧 7 位列地址，分两次送 4116 进行行、列的 
选通。因此一个 DMA 周期由多路转换器分四次送四 
组地址完成 4116 的选通。在 DMA 周期地址多路转换 
器的控制信号 Ax ， 0 。 及 4116 的选通信号 CAS 、 RAS 、 
都可借用主坑板的现成信号。 

5. DMA 控制器在 B 点发出 R / W 写信号，加于 
4116 的 RAM 。 

6. DMA 控制器在 C 点打开外设数据兰态口，将 
外设数据打入 Apple 数据总线。 

7. 在 4116 的 CAS 降为低电平的 D 点，开始进行 


外设数据写入 RAM 的操作。 

8. F 点的 CAS 上升为髙电平， RAM 写操作结束。 

9. E 点数据 S 态口关闭， G 点顶 iX 上跳到高电平， 
DMA 周期结束。 



田一 ram 的 DMA 写人 W 序 


二、 Apple — I DMA 控制器的设计 
图二所示为 Apple— I DMA 控制器的一个简单举 
例。它由地址发生器、各兰态口、时序信号发生器、通用 
接口 PIO 组成。地址发生器在 DMA 期间产生 DMA 地 
址，也兼管了传送字节的计数，它通常由可予置计数器 
组成。 PIO 通用接口管理着 DMA 的启动、停止、巧始地 
址的予置、传送字节数的予置等。各 S 态口将外设、 
DMA 控制器与 Apple 总线连接起来，在 CPU 周期，各 
兰态口处於悬浮状态，起着隔离作用，而在 DMA 周 
期，各三态口按照 DMA 读写时序的要求，_^适当的时 
候，打开各三态口把 DMA 地址、数据、 R/W 信号送入 
Apple 总线。时序发生器是 DMA 控制器的核心，它产 
生的一系列时序信号拴制着 DMA 地址信号、读写信 
号、数据信号打入 Apple 总线加於 4116 的正确时机。 
产生这些时间信号的具体程式是不重要的，重要的是 
各信号之间的时序关系必须准确、稳定、可靠。它们是 
实现 DMA 读写的关键。 

在设计时序信号时，有 W 下几个问题应格外注意： 
L 所有的时序信号都须同步於 Apple- E 时钟 
00, 这样才可将 DMA 周期的读写正确地插入 CPU 周 
期之间， W 及也才便於借助 Apple 主机板的一些现成 
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电路来完成 DMA 的某些操作。 • 

原则上 DMA 必须在 0 。 的下降沿产生，在 00 的 
下降沿结束，但为保证写操作的可靠完成 DMA 周期 
的进入(点 A ) 和结束（点 G )， 宜比0。下降沿稍滞后 
--点，但也不能滞后太多否则将影响 DMA 与 CPU 的 
控制权的交换。 

DMA 控制器的其它时序信号均应《0。(或 14 M ) 
为基准而设计。 



2. DMA 地址译巧，借用了系统主机板存胆器的译 
码电路， DMA 地址的打入地址总线必须与主机译码电 

• 路的要求相符合，它起码应在0。周期的 RAS 信号下 
降为低电平之前就己稳定地建立在地址总线上，我们 
通常用 6 S 杭信号来作为地址 S 态口的开口信号。 

3. 保证外设数据可靠写入 RAM 的关键是处理好 
如图(一)所示波形中的 CAS 信号、数据兰态口开口信 
号、信号之间的关系。时序应保证 RAM 在进行 
"写"操作的期间，其 RAM 的数据输入端一直稳定地 
维持着写入的数据，因此数据兰态口的开口信号 CE 
最好宽於 DF(0o 周期中 CAS 低电平期间）， E 点必须 
足够滞后点，而 DMA 的结束点 G 应滞后於 F 点。 

4. R / W 必须在0。周期并在 CAS 下拉为低电平 

么前跳为低电平 ( B 点），使主机板上的 RAMSEL 适时 
地巧为高电平。 4 

=. Apple - n 外缓存式数据快获取 

W 上的例子为外设数据直接送入 Apple - n 内存 
RAM, 通常也称为内缓存式 DMA ， 与此对应的也可采 
用外缓存式数据快获取‘。 

， 外缓存式数据快获取的基本工作原理与上述的内 
缓存式相同，但它需要扩展一个外缓冲存贬器 
EXRAM ， 外设送入 Apple - 的数据，先采用硬件直接 
写入的方式，快速地暂存在 EXRAM 中，然后再通过 
Appl 自中断通道转存到内存。 

图(兰)所示为外缓存数据快获取接口线路的一个 


例子，它由地址发生器、各 S 态 n 、 时巧发生器、 
EXRAM 、 双向开关、通用 PIO 组成。 S 态口，时序发生 
器的作用与前例相同（只是 RAM 的译码信号也由时 
序发生器产生。) EXRAM 用来暂存外设数据，它是一 
个 "双" 端口的 RAM , 通过双向开关，它的一端挂在外 
设上，另一端挂在 Apple 总线上， CPU 和外设共享 
EXRAM 。 双向开关受控於 Apple 主机，决定着 EXRAM 
的使用权。外设向 EXRAM 传送数据时， EXRAM 面向 
外设，外设数据在时序发生器产生的有关时序信号的 
控制下，采用硬件直接读出的方式由外设直接送入 
EXRAM , 整个的传送过程与上例的内缓存类似。通常 
将连续地送数，一直到 EXRAM 区存满为止 。 EXRAM 
存满，地址计数器向 Apple 发出中断申请，主机响应中 
断，改变双向开关的方向，将 EXRAM 的使用权转交给 
主机，主机发出地址信号，选通信号，读出暂存的 
EXRAM 中的数据并经 PIO 端口将它们送入 Apple 内 
存。.为了减少数据的丢失，往往设置两个 EXRAM 区， 
EXRAM 1 装满了，地址发生器发出中断信号，使得 
DMA 的数据获取转向 EXRAM 2, 并把 EXRAM 1 中暂 
存的数据送入内存，两个 EXRAM 轮换工作，共同完成 
数据的获取。显然，在对 EXRAM 进行数据的 DMA 获 
取时， CPU 可运行着自己的主程序而不受任何影响。 



由=外巧奋巧快 gDWgffi 


有时还可用周期切换的方法实现外缓存的数 
聽快获取。例如，樂一周期， EXRAM 1 面向外设进行数 
据快获取， EXRAM 2 面向主机，将缓存的数据送主机 
内存。一旦进入第二个周期，两存贬器的动作自动进行 
切换， EXRAM 1 转为面向主机，将上一周期获取的数 
据，送主机内存， EXRAM 2 转为进行数据获取。’ 

王、结束语 

笔者近几年在 Apple — I DMA 快获取方面做了一 
些工作，自制的数据快获取接口己用於 W Apple - 1 
为基础的智能仪器及工业过程控制系统，实践的结果 
表明，快接口的工作是可靠的，稳定的，它不但适用於 
实验室环境，也适用於工业环境。无疑， Apple - I 数据 
快获取的实现，更加扩展了 Apple — I 的应用领域。 
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〔搞1要 〕 :本文叙 连了用 0 52 0 、 APPLE 机作系统主 
机的微机工业过程控制系统的构成，软硬件性能，及其 
在各个不同领域的投运情况。对 W 这类机型作系统主 
机的利弊进行了分析，并指出了在检测与控制中应注 
意的事项。 

一、概巧 

随着各行业对微机应用的需求日益请长和对微机 
性化的更进一歩的要求，促使我们对徵机工业过程控 
制系统的研制，并于84年完成样机的研制王作。后米 
又进行了充实、完善，研制出拥有多种用途，不同椅度 
的输入、输出接口板的微机工业过程检測与控制糸统 
TCA — 1和 WGK 。 这两种控讳 ij 《统内部构造有所不 
同，而在完成工业过程检測与控制的功能方面则是相 
同的 ，婆时 ，由于 APPLE - I 机在我国广为流行，有較 
高的性能/价裕此，软件丰富。因此我们采用它作为系 
统主机，再配 V 乂通用的 I / O 接口箱、工作台、接口板稳 
压电源、缓冲卡、时钟卡、报警装置等拘成系统。采用 
IEEE — 796总线 （86 怒插座），使该系统具有很强的可 
护展性。系统配有丰富的症用软件，用户只需通过键 
金、显示器同计异机进行人化对话就能方便地产生用 
户实用的检测一控制程序，给用户提供了极大的方便。 
后来，晚着 IBMPC / XT 义 0520 CH 机在国内的日益普 
义乂及一些用户的要求，我们又采用这些微机作系统 
主机。而只是对有关检測一控制程序及缓冲卡进行了 
史改。 

我们采用 appI 岩，茲 2 0 机之类个人计鼻机作为系 
统主机是考虑到其具有 CRT 显示，可较好地进行人机 
对话，可作流程图；有丰富的软件，可使用高级语言和 
工具软件包，定成诸如糸统辩巧，最化控制之类控制巧 
能；有宽行打印机，可打印报表，有利于生产管理；与使 
用单板机相比，对项目的开发过程也大大加快；更重要 
的是其价格化廉，使许多小型企业有能力使用。正是由 
于这些原因，国内许多单位都不约而同地采用了这类 
个人机进行工业过毯的栓測与控制，并且取得了較好 
的经济玫益。 

我们在集中控帝)系统的基础上推出两种集散控制 
糸统 ••一 种是用紫金 一 I 或0520作上位批构成具有人 
—机对话和數据处理功能的據作站，巧自己研制的 
Z —80单板机或8085单板机 V 乂及输入、输'•出接口板作 


成能实现各种检测、控制功能的过程控制站，过程控制 
>«^可>乂接多个，操作站与控制站间通过巧化网相联。芳 
种集散系统的控制单元则用我所开发的单回路调节 
器，集散系统由于把*回路分散为由多个控制单元进行 
控制，因而抱兔险分散了，提高了整个系统的可靠，佳。 
二、系统框图 




路开; 


脉冲 

输入 


0520 


光絹 

隔离 


报警 


1/峨口 
板电源 




=、主要接口巧技术指掠 

1.64 路12位 A / D 板；板上带有程控放大 

(1) 輸入信号：0〜 5 V (或0〜 50 mV ) 

0〜 lOma (或4〜 20 ma ) 

(2) 输入方式：可单端输入，可双端输入 

(3) 精度:0.3% 

(4) 温度系數 ：100 PPM/ec 
巧)输入化抗： >20 MQ 
(6) 采样时间： 

采保时间 A / D 转换时间 

小信号 60地 25 uS 

. 大信号 1.2 MS 25 MS 

小信号放大时共模柳制比60加(双端输入） 

2. 8路8位 D / A 义 V / I 板 

(1) 拚度:0.5% 

(2) 樓出电压：0〜 10 V 

樓出电流：0〜 lOma (或4〜 20 ma ) 

(3) 温度糸數： 100 PPM/X 

(4) 对地输出电流源负載 : Rl = l . 张 （0 〜 lOma ) 









R 1 = 750 Q (4 〜 20 ma ) 

(5) D / A 转换时间 5 dS 

3. 24 点光耗瞒离开入 /24 点继电器睛巧开出板。 

4. 时钟卡：作为本糸统的实时时钟， V 乂进行各种与 
时间有关的捡测、數据处理与控制。 

5. 报普板，可对超化报普并对计鼻机的工作状态 
进行监視。当计鼻机工作不正常时，发出声光报普。 

四、软件配置 

为了最大化度的方便用户，本系统配有组态程序， 
可根撫用户輪入的参數生成各种检測、控制程序。包 
括： 

(1) 鼻法子程序：浮点、加、減、乘、除、开方等基本 
子程序及出错处理。 

(2) 采样子程序。 

(3) 自诊断子程序和各种接口捡查程序。 

(4) 时钟子程序，产生用户需要的基本控制周期的 
脉冲锭号。 

(5) 滤波子程序库，由用户选择滤波方式，有中值、 
平滑、均值滤波。 

(6) 标度转换子程序库，完成救字量与实巧物理量 
之间的转换。 

(7) 报普处理程序，完成参數的报普计鼻及輸出处 

理。 

(8) 标准 PID 鼻式1，采用表據形式，用组态字建 
立对偏差 

En = PV - SP 进行 PID 运鼻。 

(9) PID 鼻式2,与 P 瓜1的区别是对 PV 进行 PD 
运專后的 PID 运鼻。 

(10) 偏差计鼻，完成 En = PV - SP 总的计鼻。 

(11) 自动偏差，在串级中完成主环的自动僞五运 
鼻， V 乂实现主环投入时的无化动切换。 

(12) 自动比率：完成串级巧踪的自动比率方式。 

(13) 加法器庫：完成复杂控制情化下的总给义计 
异。 

(14) 僞差报營块，完成回路的僞差报普。 

(15) 偏差化橋，使运鼻偏差在 Emin 〜 Emax 之间。 

(16) 輸出间位计其，按位置计鼻出每一个周期的 
巧位化。 

(17) 输出阀位处理，完成输出阀位的 上化、下化化 
制计鼻并输出。 

(18) 积分项化制处理， 完成和 分项的处理 ，巧 止和 
分饱和。 

(19) 测壬 值巧踞，实现手动一自动切换的无扰 
动方式之一。 


(20) 输出阀位巧踪。 

口 1) 标准显示格式1，显示每一个回路参數。 

(22) 标准显示裕式2,分时显示总参數及回路参 
數，这些程乐都是经过实巧过程控制现场使 
用的。 

五、 巧用巧巧 

几年来，我们研制的微机工业过程控制系统已有 
六十多台投入现场使用，其中有：成都化学试剂厂用于 
巧椅精错塔的控制，使产品质量提高一等级，年玫益 
达20万元；川西北石油矿区脱硫厂用于 k / li 碱球程的控 
制，减少了环境巧染，增加了疏满产量，年放益达80万 
元；公安部四川消巧科研所用于建筑拘件耐火试验；新 
都氮肥厂用于联碱生产过程控制;声州天然^化工厂 
用于能源检測；沪州瓷厂用于能源检測；成药一厂用于 
锅炉控制……。经济^益显著，其中前本项分别获得 
省、市、部科技进 步炎/ 

用 APPLE 和0520机组成據作站的集散系统已用 
于成都钢铁厂的线材加热炉控制系统，小型材 控制糸 
统，九江化工厂聚氣已蛛汽提干煤装置，成都刃具厂锻 
造巧火沪控温糸统，唐山碱厂石灰车间，重碱车间控制 
糸统，连表港碱厂石义车间，重碱车间控制系统…… 

为了适应某些用户的需要，我们巧开发了脉冲计 
數卡，时钟卡，64路8位 A / D 卡，64路12位 A / D 卡， 
MCS — 51仿真卡等，供用户直接插入 APPLE 机护展構 
内使用。 

六、 微机工业过程控制系统投运到生产泣程应解 
决的几个问趣 

1. CMOS 模拟开关的保护 

巧于 A / D 板64路输入共用一个 A / D 转换器，故 
采用 CMOS 开关作通道逸择，当 CMOS 开关上的电压 
高于正电源电压或化于负电源电压时，可能使器件损 
坏，使 A / D 板不能正常工作。我们采取王种办法进行 
保护：①二板管错位保护②电 P 豆化流保护③愁压 
管保护。 

2. 交流干扰问題：模拟仪表的抗干扰，主要是从提 
高系统的測量精度出发，解决共巧和差摸干扰问题。我 
们注意了 V 乂下几点： 

① 选用适合本糸统的接地方式。 

② 外接信号穿钢管屏蔽，强电弱电信号分开穿管。 

③ 加入硬件滤波网络。 ， 

④ 软件滤波 

3•解决數字电路通过电源对捷拟接口的干化，在 
注意布线合理的同时，摸拟电路地与數字电路地在印 
制板上一点联接。 
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巧要本糸统采用两套8031单片机狗成前端机，分别对取水豕房和送水豕房的64路模拉量，16位 X 12 數 
字重进行數据采集和數据传送。上位主机采用国内化选机型 IBMPC/XT 微机，对前端机发布各种命令控制前 
端机的工作，同时定时接收和化核由前端机采集的各种數据，作化化处理后，编制成各种图形和报長， V 乂进行显示 
和打印。为便于区分各种數据，图形采用彩色动画形式，生动形象。 

主机与前端机之间的通化采用有线串行方式。距离约 0.7 公里。采用數传电台可作30公里远化离通祝。 
该系统具有較强的數据处理能力。有良好的人一机界面。软件采用 MCS ~51 汇编语言和 BASIC 语言编制。 
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一套完整的供水系统需对联水，制水和送水兰大 软1 

环节的几十种参数进行监测和控制。若靠人工和常规 机界面: 

仪表进行管理，则供氷质量和供水保证率均较差，管理 确，软斜 

效率也低，人为差错较多。使用计算机控制后，计算机 有较强 ( 

根据水厂清水池的水位决定乗的井、停时间和数量，计 
算机自动显示，自动打印并自动报警。及时提供生产管 前若 

理的数据，减少因系统性故障造成的损失。不仅提髙了 29. 

经济效益，而且对于促进微电子技术的应用，促进传统 
管理向现代化管理转变，无疑是具有重要意义的。 ^2： 

本系统不仅适用于城市供水。而且适用于石油、化 1984’ 3 

工、医药、电力、铁路等部口。其通用性较强。 

二•性能指巧 1989’ 

本系统具有64路模拟量。16位 X 12数字量的输 
入通道。检测的参数有各栗电机的温度，电流、电压、功 
耗;各出水管虚力;各大口井水位，河水位，清水池位；感^ 

出厂管流量;出厂水余氯、浊度、 PH 值等。 __ 

系统功能：自动将检测的各参数存入内存初硬盘。 

根据清水池水位送出控制聚的开、停、信号。 

显巧器 (CRT) 

用彩色动化方式自动循环显示各检测参数。 ' - 

根据用户需要打印生产日报表，制水日报表和统 I 打賴 (24 针 

计月报表。 _ 

累计各累运巧时间，耗电量，机耗量和投氯量。 I 软 . 、?歷巧 
自动报警，各报警上、下限值可按用户需要在键盘传 
上修改。 

具有自行检査数据采集，数据发送，数据接收和自 
检内存的功能。 r— 

具有程序自诊断及自恢复功能。出现干扰死机时， ~ i 变苗 
能自动排除干扰，恢复运行。 

24小时连续运行。 


=. 系统软件设计编制，固化在 EPROM 中 

软件采用模块化结构设计，并设计了良好的人一 
机界面。清浙，易读且便于扩充，为保证采样数据的准 
确，软件设计采用了均值和限幡等滤波措施，该软件具 
有较强的数据处理功能，通用性好，易于移值。 

上位主机的通信部分的流程图如图(2)。 

前端机通信程序附后。- 
四•参考资料 

(1). Intel Microcontro Hanqbak 1984 
口 ) .MCS — 51微计算机用户手册复宜大学 
1984. 3 

口 ) .MCS — 51系列单片微机及其应用孙育才 
1989. 3 
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START ： 

MOV 

TMOD, 

#20H 


MOV 

TLI, 

#E6H 


MOV 

THI, 

#E6H 


SETB 

TRI 



MOV 

SCON, 

#50H 


MOV 

RCON, 

#DDH 

LUT ： 

MOV 

民 5 ， 

#(X)H 


MOV 

民 O, 

#50H 

TXO ： 

JBC 

RI ， 

TXl 


AJMP 

TXO 


TX1 ： 

MOV 

A, 

SBUF 


MOV 

RT, 

A 


ADD 

A, 

民 5 


MOV 

民 5, 

A 

TX2 ： 

JBC 

RI ， 

TX3 


AJMP 

TX2 


TX3 ： 

MOV 

A, 

SBUF 


XRL 

A) 

民 5 


JZ 

RUT 



MOV 

SBUF, 

#OFFH 

TX4: 

JBC. 

TI, 

LUT 


AJMP 

TX4 



AJMP 

LUT 


RUT ； 

MOV 

R5, 

#OOH 




MOV 

SBUF, 

巧 OOH 

TX5 ； 

JBC 

TI ， 

TX6 


AJMP 

TX5 


TX6 ： 

JBC 

RI, 

TXT 


AJMP 

TX6 


TX7s 

MOV 

A, 

SBUF 


MOVX 

民 O, 

A 


INC 

RO 



ADD 

A ♦ 

民 5 


MOV 

R5, 

A 


DJNZ 

反 7 ， 

TX6 

TX8 ； 

JBC 

RI, 

TX9 


AJMP 

TX8 


TX9 ； 

MOV 

A, 

SBUF 


XRL 

A» 

民 5 


JNZ 

TXll 



MOV 

SBUF, 

幷 OOH 

TXIO ； 

JBC ， 

TI ， 

TXl 3 


AJMP 

TXIO 


TXll ； 

MOV 

SBUF, 

幷 OFFH 

TX12: 

JBC 

TI, 

TXl 3 

4 

AJMP 

TX12 


TXl 31 

DEC 

RO 



AJMP 

START 

END 



• 小经验 • 


也谈 APPLE PASCAL 系统打巧程序清单 

上海巧行少科站阴中 

贵刊八九年第 5 期《在 APPLEPASCAL 系统下打 
巧程序清单》一文读后颇受启发，控制码控制程序清单 
的打巧确是一种好方法。但文中对指令码送往打印机 
的处理必须通过编程解决，还须编译，这就相当麻烦。 
攀者认为可 W 用 T 命令来大大简化步骤。具体来说， 
使用 T 命令后，键入巧1回车，社6回车(这时屏幕的 
内容将传到打印机），再将相应的控制码直接送入，如 
CHR(27) 即 ESC 键， CHRC(15) 即 CTRL—0 字母，最后 
CTRL — C 结束。格式定好后再用 T 命令打印程序 
清单。 

例如，要打一份加深的程序清单，只需3步： 

1. T#l,#6 回车， 

2. <ESC>E, CTRL—C 

3. T 文件名，巧6回车。 
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• 电巧神 通 • 


掏件蒸#计算抓群據系 


上為建筑施王技术研究所赵哲身 


氷泥制品行业每万元产值的能耗居各行业之首。 
为此，研制能缩短养护周期，节约能耗、节约水泥并提 
商制品质量的构件养护实时控制系统具有重要的意 
义。 


济效益达23万元。 

二、系统的硬件配置 
本系统的硬件配置如图一 


期仍较长。 


较窩的测量精度确保了自动记录数据的准确可靠。 
一、系统的技术性能和经济效益： 

1、 控制方式:计算机群控、位式控制。 

2、 控制坑数:最多可达十四个坑。 

3、 准确度； 


( 2 ) 系统测量精度: <± i . crc 。 

4、 温度显示分辨率 : o . rc 。 

5、 人机对话功能:可键入开坑、关坑及恒温值兰种 
命令。前二种可在控制过程中动态输入。 

6、 多窗口显示功能:屏幕划分为兰个区域，分别显 
示控制参数表、命令、报警提示和绝对时钟。 

7、 A / D 转换器自检功能:一旦 A / D 板出现故障， 
立即报嘗。 

8、 打印功能:养护结束，系统自动打印坑过程参数 
表和相应的湿度——时间曲线。 

9、 计算班组蒸汽用量。 

10、 卸坑信号:工艺流程完成时系统自动关坑并发 
出卸坑声。 

11、 手动操作功能:系统发生故障时可转入手动控 
制模式。 

本系统投入应用后取得明显的技术经济效果:与 
手动控制方式相比节煤 28. 4%;蒸养合格率达100%; 
养护时间从原来的1 一 .4-4( 小时)制度缩短到 5. 5小 
时，共减少养护时间 3-3.5 小时左右。试块抗压极限 
强度 R 28 也有一定程度的提高。经一年半投产，综合经 


一 1 上 

r 

1 

-温送 

度器 

变 1 

Rt2 


T 

-温送 

度器 

变2 



KtlO 

广 

L 

-媪送 

度器 

变10 

Rtii 


Ip 

L_ 

溫送 

度器 

变11 


其中 Rt 为铜热电阻，滤波网络为十六路平衡网 
络;光电親合和驱动电路由固态继电器实现。 S 十只伐 
分十组，每坑一组分别为干热阀、主湿热阀和付湿热 
阀。 

兰、蒸汽养护工艺 



图二是经我们优化后的标称蒸养工艺曲线。 
随气候的变化、开坑巧始温度的不同，实际养护工 
艺曲线是浮动的(见各种虚线）。 

曲线共有五个工艺段。静停设在 52 "C 处，其时间 
随巧始温度的不同而不同，计算化自动计算确定。除降 
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古、意外情况的处理 

根据工厂生产的实践，本生产过程中可能发生的 
意外情况有下列兰种:1、锅炉故障。2、断电。3、蒸汽压 
力不足。 

为此，我们在软硬件设施中采取相应对策，使系统 
具有相当强的功能来进行意外情况的处置。 

系统中设置的 500 W 不间断电源，可承受短期断 
电半小时 W 上。软件功能的强化使在锅炉故障和蒸汽 
皮力严重不足的场合，系缔能摸拟智能化的人工经验 
自动延长养护时间，自动补偿锅炉维修造成的蒸汽不 
足或蒸汽压力过低而可能导致的质量问题。 

(上接 22) 页 

0330- DE 91 06 2 C 00 C 0 30 44 
0338- A 5 09 20 A 8 FC E 6 F 9 DO 
0340- F 2 E 6 FA A 5 FA C 9 BA FO 
0348 - 07 A 5 FA 8 D A 6 04 DO E 3 
0%0- A 9 BO 85 FA E 6 FB A 5 FB 
0358 - C 9 B 6 FO 07 A 5 FB 8 D A 5 
0360- 04 DO E 6 A 9 BO 85 FB E 6 
0368- FC AS FC C 9 BA FO 07 A 5 
0370- FC 8 D A 3 04 DO E 6 A 9 BO 
0378 - 85 FC DO F 5 AD 00 CO D 1 
0380- 28 8 D 10 CO FO 11 C 9 9 B 
0388 - FO 16 08 98 48 20 3 A FF 
0390- E 6 08 68 A 8 28 DO 9 C A 9 
0398 - AQ 91 06 C 8 CO 28 DO 8 F 
OSAO - 60 


指标。图 S 表明，在设计阶段对可靠性设计投资越小， 
则在试验和投产阶段为解决可靠性问题耗资必越大， 
总投资比设计阶段优先考虑可靠性设计时成倍增加。 

一年多投产实践证明，本系统在现场有大功率振 
动台、电焊机、行车的恶劣环境下运行可靠，有极强的 
抗干扰能力。硬件故障率为零。 


溢段外，各段数字模型可用直线方程表示： 
y = ait + bi , 其中 i = l 〜4 
四、坑热特性的测试和采样周期的确定 
本系统的工作对象是节能式养护坑，内装建筑构 
件。坑为 5 X 7 X 2. 6 m 3 体积的长方体。内侧配有喷嘴， 
W 蒸汽为热源。对于如此体积和结构的热对象，其热特 
性和坑内温度梯度的分布是我们系统设计时必须考虑 
的重点 么一。 通过坑热传递函数和模拟工艺特性的测 
试，我们了解到： 

1、热对象在整个工艺流程中的温度梯度分布，找到了 
减小溫度梯度的方法。2、根据坑热自然特性确定采样 
周期。3、找到了合理的采样点。4、了解了蒸汽压力的 
实际情况，它与升温过程之巧的函数关系。5、获取了热 
对象的惯性延迟参数。 

(一) 坑内温度梯度问题 

测试表明，按照坑原有的热源结构，最大梯度约 
28€.我们设法改变了喷嘴的分布，其结果使温度梯度 
缩小3〜5倍，从而使控制精度提高了一倍。 

(二) 寻找合理的采样点 

对于大的热对象，在研制实时控制系统时，一般采 
用几个采样点，用软件加权平均的方法解决热对象的 
温度梯度问題。在本系统中，我们找到了在整个工艺过 
程中能代表全坑各点平均值的测点。因此可 W 只使用 
一个采样点。 

和传统方法相比，本系统不仅成倍地节省了传感 
器、温度变送器乃至 A / D 转换器的开销，而且简化了 
软件工作量，节省了时 I 司和空间。 

(兰)采样周期的确定 

香农定理确定：采样周期 At 应满足关系： At 《 

为信号上限频率）。但实践证明，在热工过程 

中，采样周期必须比香农定理得出的值大几倍才能满 
足要求。 

. 五、系统的软件设计 

本系统的用户程序主要由6502汇编语言编制，约 
4700条指令，共包括十个文件。另有一个 Basic 语言编 
制的自动引导程序。 • 

本软件共由六个模块组成:依次为采样模块，数据 
处理模块，工艺方程调用模块，控制模块，人机对话模 
块和打印摸块。 

六、系统的抗干扰设计 

本系统是实时控制系统，我们把可靠性设计视作 
系统设计的生命。 

历来，设计者往往容易追求功能指标而忽视性能 
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• 电脑神 通 • 


视觉闪光图象诱发电位记录分析的 apple 微机应用 

上海第二军医大学长征度晚 
郑观成戈俊国袁国梁 


视觉是人类认巧世界和改造世界的重要口户，是 
无比复杂的高级神经活动的重要组成部份。視觉功能 
的检查，不仅反峡了視觉系统结构的各个功能环节 
(从眼请，角膜，前房开始，途径視网膀，視神经各级视 
觉中枢，直至化叶皮层），而且有巧显的*苗理学和神经 
病学色彩。視觉功能是十分复杂而有趣的问题，世界 
许多学者，都从各个不同角度进行了研究，使用计鼻 
机对視觉巧发电位的分析，便是其中重要指标之一， 
为了更好地开展这方、兩科学研究工作，并在临床推广 
应用，我研究室结合我国国情，应用 APPLE— II型微 
机，开发成功图象诱发电位记录分析糸统，并在软件 
技术上充分利用软件资源，取代一般检查方法中需要 
的硬件设备，具有一义特鱼，该糸统在临床已经应用， 
本文重点介绍该系统的设计要点。 

一、 设备组成 

该系统含 APPLE— II型做机一台（配有键盘， 
CRT, 驱动器），四十行彩色打印 机和^ 拟放大糸统；需 
要检查人体对巧光視觉诱发反应时I，则加配巧光装 
置。为了充分发挥计鼻机系统作用，微机保留了全部 
原有功能，不进行視觉检查时则仍可作为通用微机使 
用，完成其他各种王作。 

输出使用四千行 PP 40 打印机，不仅可 V 乂表代通 
常打印机，化检查结果的曲线与數撫打印出来，而且， 
其曲线与结果巧可 V 乂用不同色彩显示，使涵面清晰， 
分辩明显，拘图美观，在系统造价上也降化了成本。 

在視觉巧发电位中，有巧光斯激和图象（棋盘式 
方块）两种刺激巧发方法，后者技术先进，視觉检查有 
特殊价化。在国内外进行该项检查中，一般都必须配 
备有产生各种图象的专口电子线路装置，即图象发生 
器。本糸统应用软件控制 CRT 快速完成图象变换，使 
整个系统结果简单化，大大降化糸统成本，降化了仪 
器故降率，减少维修困难，而且为逢加平均技术提供 
了更椅确的时间基准，成为本设计糸统的重要特复。 

本系统配备有双通道的高输入 P 且抗的高增益放 
大器，可 vX 完成双通道的同时采样。 

二、 软件概化 

1、图象发生 

作为視觉刺激的影屏图象，在软件控制下可 V 乂产 
生大、中，小王^不同的棋盘方格，也可 V 乂发生扭，中， 
细王种条纹，并能引出全屏幕方式的巧光刺激，根据 


病巧的病巧和度生的检查需要，可 V 乂通过人机对话选 
择，通过软件设计，还可 V 乂产生半视野或1/4視野刺 
激。实践表明，利用 APPLE— II 现有内存，完全可 W 乂完 
成上述功能，但由于产生上述国象所占去计專机的内 
存较大，因此软件进行内冉分布时，应尽量合理分配， 
骑系统的采样、显示等功能合理安辦，方能完成该项 
权件设计。 

2、 巧发电位采样 

为本系统软件的最主要部份，考虑到保姑肠电信 
号的采样速度，程序使用汇编语言编写；入口及人王 
对话，功能选择等用 BASICA 语言补充，程乐中利用 
计鼻机達加平均技术，这是视觉巧发电位能否记录出 
来的关键之一。 

我们知道，人腊具有一百多么个不同类型的神经 
細胞，每一个神经细胞都有产生各自生物电位变化的 
能力。全肪所有神经細胞电位的每一瞬间之和，便是 
通常临床用的"脑电图"。巧图象巧发引起腊内有关神 
P 细胞（只占全腊神经细胞很小的一部份）兴备所产 
k 的电位变化则十分微弱，每次斯激所产生的电位变 
化（視觉巧发电位）完全被淹没在比其高數十倍的'‘肪 
电图，>之中，平均逢加技术則是从全脑综合电位中提 
取图象刺激视觉诉发电位的最常用手法之一。 

3、 结果显示 

在采样过程中，遠加结果定期显示出来，乂蓝视 
采样效果。數次检查的结果可 V 乂同时显示出多条曲 
线， vX 化进行对比。对于电位较化的巧发电位，可 V 乂通 
过人机对话辦信号放大显示。 CRT 上的结果曲线，其 
位置可 V 乂上下移动；曲线如有溢出，用人科对话可 V 乂 
调整，然后正确显示，免除采样过程中因信号过大溢 
出而无法利用。 

通过键盘命令，诱发电位曲线义數据可 V 乂由打印 
机绘图及打印输出。 

4、 信号分析 

本系统检出人体的图象視觉巧发电位 V 乂橫似曲 
线显示爲，临床要测义的参數主要包括各皮波峰的潜 
伏期、波幅值和各波的波间期等。本糸统设计了上述 
参數的自动分析功能和半自动分析功能。房一分析方 
法的设计，是专口针对巧发电位比较复杂、变异性较 
大而设置的。用该方法检測者可控制键盘移动曲线上 
的光标。分析结果巧打印机输出數撫。过去电生理方 
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此较复杂，为了提取更多信号特征常常需要更复杂的 
分析。本系统能够进行快速傅立叶变换 ( FFT 分析）， 
用分析 FFT 计鼻方法，将信号值序列连续进巧分莉， 
用 Rader 方法重新，然后进行计專，最后 w 乂功谱方式 
图形显示，并莉总功率和各爾段功率数据打印输出。 

王、应 用 

本糸统到现在为止，在临床上已检查200多名病 
例，运转衣明，该系统功能强，造价成本化廉，完全可 
V 乂满足临床需要，适合我国国情。 


• 电尬神通 • 

APPEL 电脑储蓄软件系统》简介 

■ r V" - - 

中国农业银行阿克苏中支亦事处王仲给 ^ " 


法对生物电参數分析都是用照相冲片人工測重的计 
鼻方法，老方法速度之巧自然不能与本糸统比較，就 
是目前同类型进口的一般设各，也免了用手妙數据方 
法。 

5、 检查结果报告 

本系统备有临床报告程序，检查结果可 V 乂很快送 
到中请检查的匯生手里。 

6、 信号的二次处理 

检查结果可送成在内长期保存，利用这些资料可 
V 乂进行巧线二次信号分析。如•上所述，由于巧发电位 


一、前 言 

开办电脑储蓄业务是实现银行现代化建设的重要 
组成部分，是发展储蓄业务根本出路！ 

鉴于农业银行数万营业机构大部分都地处经济、 
交通不甚发达的农村，加之农行机构设点分散，点多面 
广线长，电脑的推广和应用无论从经巧上和客观条件 
上讲都具有一定的困难，即使不久的将来全国农行系 
统的电脑实现了兰级或四级网络，但是第五级一营 
业所、储蓄所和信用社并上电脑网络，就我国目前的条 
件来讲尚无可能。 

根据上述认识，为了配合电脑在农村的推广、应用 
和普及，我们针对农行的特点，编制了这套 APPLE 电 
脑储蓄系统软件。本系统全部硬软件配置价格仅是其 
他电脑储蓄微机价格的四分么一，而且操作简便，性能 
安全可靠，功能齐全，全部中文提示，图文并茂，操作人 
员无需专口培训，只要具有初中文化程度，经过一两天 
短期熟悉，便可上机操作，特别适宜农行基层行所使 
用。法对于发展农村储蓄业务，提高农行基层干部的现 
代化素质，都有一定的意义。 

二、硬软件配置及使用条件 

1、硬件 

[1] . 主机采用美国产 APPLE - II 型微电脑，该机我国 
引进年限较早，社会拥用量大，质量稳定可靠，不要专 
用机房在一般办公场合即可安装使用。近年来，我国自 
己也生产了众多的 apple 兼容机，价格更为低廉。 

[2] 十二英寸单色显示器两台 ，一 台作操作显示，一台 
放柜台上让储户监督，由于 APPEL 机屏幕显示汉字为 
17 X 10= 170个汉字，文字显示较其他十六位微机清 
晰，并且为简化字，经我们柜台试用证明，很受储户欢 


迎。 

[3] . 至少两台软盘驱动器，如能配畳更多的（最多八 
台)驱动器，则可减少操作程序，提窩操作速度。（本程 
序按两台驱动器编写，如能配置多台驱动器，则需对主 
程序作适当修改。） 

[4] . MX — 80型或 MX — 100型或 EN — P 1090 型九针 
打巧机一台，用 W 打印存单、底卡、利息清单，科目日结 
单和余额表。 

[5] . 《苹果藍汉卡》一块(中华学习机杂志社有售） 

[6] .16 K 扩展 ROM 卡一块。 

[7] . 专用定期、活期、定活两便存单(代付出传票)和存 
款免条(代收入传票)及利息清单。 

2.软 件 

[1] . APPLE 电脑储蓄系统软盘一张. 

[2] . 单面密度 (140 KB ) 数据软盘若干张 

[3] . « APPLE 电脑储蓄微机使用手册》一本 
兰.各项功能衙介 

使用本电脑储蓄系统，不需记忆专口电脑操作命 
令，操作者只需按屏幕中文提示触摸某一键即可 
本系统具有下十六项主要功能： 

1. 保密：为了安全，操作启动本系统需巧入密 
码，否则无法进入本系统，密码曰令可由操作人员随时 
修改变换，密码长度不限. 

2. 存入(开户）：可办理^期、活期、定活两便及华 
侨人民巧四个储种、十一个存期的存入开户业务，并打 
印存单，操作时只需打入姓名、金额、存期 S 组数据，便 
可打印显示帐号、姓名、金额、储种、存期、利率、起息 
日、到期日、到期息九项要素。 

3. 支取(结清）：可办理定期、活期、定活两便和华 
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侨人民币储蓄等四个储种、十一个存期的支取结清业 
务，并打印显示利息清单，操作时只需打入帐号，便马 
上显示该帐号、姓名、金额、储种、存期、存入日、结息 
日、计息天数、利息、保值、本息合计等十一要素，如果 
是提前支取，电脑将索要身份证号码，并打印在付出传 
票上，如果该帐号已被支取或被挂失，电脑会立即发出 
警告，确保万无一失。 

4. 用帐号检索査询某帐号储户存款各项要素。 

5. 用姓名检索查询，如有同名人，将分别先后显 

7 Jn 0 

6. 挂失申请:经储户申请，某帐户一经挂失，任何 
支取的企图都将显示声光警告。 

7. 挂失注销:经储户申请，挂失的账户可 W 撤消挂 

失，重新支付。 ，， 

8. 挂失补发存单:在捶失有效期满后，可利用该功 
能向储户补发存单，存单各要素由电脑自动读出，记入 
新存单，并巧印补发及补发日期等字样。 

9. 储蓄托收(续存)收进:收进被委托行划入储户 

续存款项，按原存单要求打印存单。 ‘ 

10. 储蓄托收(续存)划出：收到委托行转来储户要 
求续存的存单，按储托有关规定计息。 

11. 打印储蓄科目日结单:可 W 累计当班(天)各储 
蓄科目收入笔数、金额及付出笔数、金额、利息等。 

12. 打印余额表:用户可根据需要每月或每季打印 

一次余额表，余额表分储种，存期分别打印帐号、姓名、 
金额、存入日四个要素，并自动小计每页金额，最后总 
计全部余额，每张纸可打印韦十个帐户，自动空行换 
页。 ， 

13. 复制数据盘副本功能:有中文提示复制方法。 

14. 修订利率:凡遇国家调整利率，无论调高调低， 

用户只需利用该功能按屏幕提示修订各项利率，无须 
改动程序。 W 

15. 启用新数据盘(格式化)功能:当磁盘数据装满 
时，电脑自动*告，提示换盘，新盘启用需格式化。 

16•储蓄宣传功能:备有多幅画面，可供选择。 

四.程序设计中几个问题的处理 

1. 由于银行各项储蓄业务相当复杂，尤其是各种 
定期储蓄计息问题，提前支取和过期支取的计息方法 
又各不相同，还要考虑利率调整和分段计息，内容相当 
繁杂。但是， APPLE 电脑内存有限，在显示中文状态下 
内存仅 24 K 左右，如果利用绘画第二页，内存还要少 
8 K , APPLE 电脑内存仅有其他十六位机的十分之:一左 
右，为了在小小的 APPLE 上做出储蓄的大文章，我们 
在系统结构上采用各功能独立、数据传递和数据共享 


的方法，对经常频繁使用的功能，如存入、支取等都放 
于主程序内，减少读盘次数和提商运行速度。 

2. 充分利用数据盘空间：为了节约软盘充分利用 
数据空间，减少操作步骤(换盘)集中处理数据，程序设 
计中采用链指针的方式，直接査找已结清的空帐户，反 
复使用速度较快。 

3. 由于近几年来国家在进行国民经济调整，银行 
存款利率有可能再次调整，程序中用了大量的篇幅对 
此进行了预置处理，只要在本世纪末前 （1999. 12. 31) 
利率调整，无论调髙调低，都能按现行储蓄政策分段计 
息。操作人员只要按屏幕提示输入新利率无须修改程 
序。 

4. 数据结构采取随机文件形式整齐划一，可提髙 
检索速度，一般按帐号支取只需二秒钟，每张磯盘可储 
存4800户数据，帐号记录从巧1——#999999,储户姓 
名可输入五个汉字，每户金额最多可记录 99999. 99 . 
元，足够满足储蓄业务的需要。 

5. APPLE 电脑对大于九位（十亿），小于 0. 01的 
数采取科学表示法，如1000,000,000用 1 E + 09 表 
示， 0. 005用 5 E -03 表示，一般人难理解，本程序采 
取措施将其全部用常规法表示。 

6. 考虑到储户中有同名人，或一个储户可有多张 
存单，为了便于检索查询，本程序 DIM 语句下标变量 
设韦十个，即在4000储户中可有古十个同名人，足够 
使用。 

7. 本程序储蓄宣传备有多幅画面，可 W 随意选择 
显示。 

8. 本程序中人民巧金额大写子程序，按汉语规范 
读数方式表示，表示范围在 1-99999. 99元。 

9. 本系统设置有各种处理错误的措施 W 应付操作 
失误的情况，凡各种错误操作，电脑不是不予理会，便 
是提示错误警告，请求重新操作，保证本系统启动后， 
始终在系统控制之下。 

五.今后的设想和发展 

APPLE 电脑作为国内拥有量最大的机种，众多的 
研究机构和研究人员在研究其性能上有 所突破 ，有些 
成果已见诸于报刊，尚有发展前途。 apple 电脑储蓄 
•的软件亦可进一步发展，如加大投资，配置硬盘（温 
盘），可大大加快程序运行速度，加大数据储存量并増 
强安全系数。 4 ' 

另外，利用下巧后电脑闲余时間，可让 apple 进 
行其他银行业务处理。如记帐，会计报表等，其软件有 
待开发。 


% 
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ZL 软汉字系统 2. 4 版使用说明摘要 


本系统存放在二片至又四分之一英寸的双面双巧 
度软殘盘的两面，一张叫《统盘，芳一张叫字库盘。 

系统盘 A 面：存放操作糸统，工资管理等演示程 
序和使用说明摘要 ( SM 2. 4)。 

糸统 i B 面：按区位码顺序存放二级汉字 5601 — 
8794。 

字库盎： A 面按区位码顺序存放全部国标一级汉 
字（1601-5594)及图形字符（0101 — 0994),6面按拼 
音顺序存放二化汉字 （5601 — 9694)。 

君配 宋体字库盎： A 面按区位码顺序存放全部国 
标一级汉字 （1601 — 5594) 及图形字符 （0101 — 0994), 
B 面按区位码存放二级汉字（5601-8794)。 

注:拼音顺序的二级汉字区位码不同。 

本系统与 DOS 3. 3和 APPLESOFT 完全兼容，用 
户空间大，运行速度快，功能强，汉字内码同中华学习 
机硬汉字。 

可 V 乂直接输入国家标准一级和二级汉字，巧可造 
字和改字，并配有制衣符，打印实线表據，使用英，俄等 
本种 ASCII 大、小写字符。 

一，启动 

将系统立放入驱动器 A ， 然后开机（开祝状态下键 
入 PR 持6)，机器便自动进入中文 BASIC 状态，并运行 
HELLO 程序。 

在中文 BASIC 状态下，除 HOME 语句要用&命 
令代眷， FLASH 语句不能用外，可直接巧原来的 ba ¬ 
sic 语句 编程。 

二，汉字输入 

按 CTL - L 进入或退出汉字輸入状态，输入大写字 
母为拼音输入，數字为区位输入。 

1•拂音输入：最多允许四个大写字母，超过部分一 
律我尾，不足时按一次空格键，提示行即显示出八个一 
组的汉字及适择序号。 

这时可按净号选择所需汉字，并自动在提示行显 
示被造汉字的区位码，如按，/，再按序号可重选。 

该巧若义有需要的放字，可用一义-键前后查找， 
如果在 A 面字库不能找到所需的汉字，可辦字库适取 
出翻面再插入，鍵续在二化字库中找。 

2. 区位码输入：直接键入某汉字相应的区位码，该 
汉字即出现在程序中，也可仅輸入这位码前之个數字， 
再按空據键，在提示行即出现八个满足前王个數字的 
汉字，此时与在拼音方式下选字相同，区位码苑围 ： A 
面 0101-1444,1601 —5694 ，B 面5601-9694。 


输入一次空裕，可在光标处输入一 ASC 字符，不 
必退出中文输入状态，在逐到选重码时，都可 W 乂按， 
ES 。 键放弃查遠。 f 、 

王，小字库的管理 

Ctrl - A : 是改变字库所在驱动器的开关，本糸统开 
机时设在2巧驱动器，每键入一次 CTRL - A 就骑字库 
盘的设义位至交换一次，单驱用户开机时应键入一次 
CTRL-A 或？ CHR $(1)。 

Ctrl - B : 清动态小字库，此时存盘程序无小字廖。 

&BX XXX :删小字库中区位码为 X XXX 的汉 
字。 

Ctrl -0: 显示或打印出机内小字库首、尾地址，并给 
出汉字的区位码，用户可按小字库青、尾地址单独建字 
摩文件。 

用户每选中一个汉字，该汉字即自动进入小字麥， 
如再次使用该汉字时，则直接从小字麥中提取，提高了 
汉字的输入速度，程序各盘时，小字库也複着存金，并 
且和程序存在同一个文件中，而不是分成二个文件存 
放。 

用户可根据汉字多少用&9设置变走衣肯址，高 
字节放 $ D 5 C (3420)。 妾机内字库•满额时祈字复盖字 
庫尾八字，字库•不再增大， 保社程 序正常运行， DOS 命 
令， LZK < name > ，可辦字库文件自动連接在内存 ba ¬ 
sic 程 序上。 ^ 

四，改字义造字 

打 CTRL - W 则进入改字及适字，这时屏幕上與出 
现提示: ZLQWM =? ，这是要求用户输入区位码。当用 
户輸 入了四 位区位码后，屏幕上即显示出该区位码所 
对应的汉字，此时按，啟 C ， 该字清为空格，或用 A ， Z , 
四个键控制光标上，下，左，右移动，用空格键选 
择当前光标处的点为写或擦。 

、 造字完成后，按回车键，即出现提示 SAVE ( Y / 
N )?, 键入 Y 可化造好的字保备在字库•盘上，供长期使 
用，键入 N 则把造好的字送入机内小字库，仅供本程 
序使用，用户可使用 A 面1001 —1444,冉自造汉字。 
五，打印机的使用 

Ctrl - P : 打印机巧机开关，按一次 Ctrl - P 则骑主机 
和打印机联通，再按一次 Ctrl - P 则断开，也可 k 乂用命令 
POKE 814,1联机 , POKE 814,0断开。打印时自动关巧 
厚幕显示，能提高打印速度30%。 

本糸统可打印32种字型，可控制行宽，行巧，字 
距，正反相，旋转 90.180.270 度等，见程序 CT -&2. 4。 
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六，高分辩两巧国文并茂 

本系统能在化分辩率及高分辩两种状态下作图， 
系统初状态是在高分辩率第 . 一巧，所 k 乂不需要用命令 > 
HGR ， 就可 V 乂作图及在西形上加汉字。 

若要用禹分辩率第二页，则应设置 &F ， BASIC 首 
址被移到 $6001 ，&N 返回高分辩率第一页， BASIC 首 
化不动， & P 与 &N 均为化向开关。 

禹分辩两巧上均可开窗口，详细情化见程乐 CT- 
& 2.4,HG 民 1-2 。 

击，糸统和展的命令 

糸统设有多功化 & 接口义控制字命令，为对汇编 
语言较熟悉的用户提供了一些方便实用的子程净，接 
口及命令。 

如 : 數制转换， BASIC 程序中直接使用监控命令及 
变 * 转移行号，中西文转换，程净动态连接，字库辦序， 
详见程序 CT-&2.4，ZKPX 

为了方便用户，本系统巧提供了将 STC 或超级软 
汉字系统下开发的汉字軟件转化成 ZL 系统下软件的 
工真 〈 STC-ZL>, 〈 Z-ZL >。 

转换后所生成的汉字软件不仅能在 ZL 系统下使 
用，而且可 V 乂脱巧软汉字糸统，在中华学习机上使用硬 
汉字运巧。 

八,工资管理系统 

化入 RUN BOOTGZ 即进入工资管巧系统，此时工 
资管理系统代换了造字功能，用 &C 可恢复 。工 资管理 


糸统使用見 〈 GZSM 〉。 
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在无滋盘驱动器的条件下 
使巧 DOS 操作系统’ 

大连紅旗机械厂研究所姜岳卿 
CEC - I 中华学习机是国家重点推广的普及型计 
算机，现邑开始大量进入家庭。但许多家庭只配畳了由 
主机一电视机一盒式录音化组成的系统，从而使其在. 
使用上受到很大限制，如要重新编排程序行号，几个程 
序相互链接等都是很困难的，且无法 W 实际操作来学 
习磁盘操作系统及文件等内容。为了能让送部分读者 
在没有磁盘驱动器的条件下也能使用 DOS 操作系统 
及某些应用软件，笔者编辑了一个磁带版本的虚拟磁 
盘工具软件即将中华学习机的 16 K 扩充卡设定为位 
于5号插槽的虚拟磁盘，使其具有60扇区的存胆空间 
(15 K )， 可存放21个文件。在此虚拟盘上可用 DOS 系 
统的全部命令，只要程序不超过虚拟盘的存贬容量 
( CATALOG 时将显示虛拟盘的剩余空间），就可进行 
各种 DOS 操作，犹如有了一台真正的磯盘驱动器。 

该软件 W 游戏的方式录在磯带上，使用时只要 W 
PLAY 方式调入即可自动运行。为方便使用，笔者己将 
程序链接等几个实用程序装入磁带， W 便使用时调入。 



第四届全国 CBE 学术年会在津举行 


济南信息王程学化吴安採 


巧中国计其机輔助教育学会、天津市计其机学会輔巧 
教育分会义天津师范大学计鼻机系组织的全国第四屑 CBE 
( Computer — Based —- Education ) 学术年会于5月 15〜17日在 
天津巧范大学召开。 

麥加本屈 CBE 年会的有来自全国各地23个省、直辖 
市、自治区的近200名代表，共向大会提高学术交流论文 
154爲，这些论文就选巧和论文质量水平均比往屑更有深度 
和水平。 

上海华东师范大学教巧，全国计專机輔助教育学会理丰 
长万嘉若教授向大会作了学术报告。代表们并分组按相互交 
流论文专巧进行了学术研讨，同时观々了各自近年来开发研 
斯的各类 CAI 方面教学软件成果演示。 

会议期间，到会的国家教姜中学计其机教育研完中<。上 
海部及北京部负责人忌传兴、潘懇德同志并在16日晚召集 
到会的部分各地中、小学计鼻机教育工作者及部分教育学 
巧、师范学巧同志座谈，就研《中于最近起革的《关于巩固 
和发展我国中小学计鼻机教育的几点意見》(单案）这一文件 


广泛所取了各地代衣的意見，发扬民主，场所欲言，对《志見》 
一文中提出的有关我国中、小学计其机教育成绩现化、前素 
方面的问題，主要是：方针问題；逐步提高巧资水平德定教师 
队伍问題；加强管巧与巧整 V 乂及经貪使用等提出了许多中肯 
的亲見。 

这次学术年会上除了有 IBM-PC 机开发成果外，亦有部 
分 Apple 机和 CEC-I 中华学习机方面的应用成果，其中表南 
师范大学數学系教搜林输材研制的 CEC-I 机可运行的 ML 
SOFT 化程序设计语言，把 logo 的作困巧能引入 BASIC ， 同时 
义有食化化的维形，即用"生成器 "( Genexatoz ) 可 V 乂自身护展 
程序的功能。江苏无锡教育学院械鸿滨付教授研制的 PC 机 
和 CEC-I 机双化本的"鸿钟汉字输入方案"其抑点是对计异 
化输入汉字符合传统的汉字手写笔划，利于外国人学汉语和 
国内初学汉字者学习使用国内《中文化忠》杂志曾予报等， 
"鸿钟码'，已成为与"专业码"相对立的"大么码"之一，估计今 
后可能有它推广普义的可能。 






« 要我们研制的新型做机控漸电子*革机及相应的數据处理软件系统，具有测重 
椅度禹、速度快、功能巧及自动化水平较高等技术特点。本文骑就有关系统组成及结构特 
点、測量信号生成原理及采集控制方式、數据处理及输出的基本功能与方法等内容作简要 
介绍；最后给出具休应用实例。 


一、系统组成与结构特点 

该电子量革机由机械装置、测量电路、微型计算机 
及数据处理软件系统等部分组成。其中，机械装置包括 
机体、传动部件及光源等，用来传送被测皮张及安装测 
量电路。该机机体采用钢架焊接卧式结构;外形尺寸分 
别为 4 m X 2 m X 0. 8 m 和 1. 5 m X 0. 8 m X 0. 7 m 两种规 
格， w 满足测量皮革和裘皮的不同需要。两种规格主机 
的传送速度分别为 27 m / min 和 22. 5 m / min 。 测量电路 
部分由信号采集电路、控制信号译码电路、信号锁存与 
传输电路、长度信号脉冲发讯电路及微机接口电路等 
构成;完成测量信号的采集、控制译码及向微机传输等 
操作。微型计算机部分包括 APPLE - I 微机主机及有 
关外部设备;配属量革机作为主控制化及数据输入输 
出设备使用。数据处理软件系统包括测量状态控制程 
序、数据采集与处理程序和数据文件管理程 序等; 完成 
测量状态的人机交互控制、测量数据的采集、处理、显 
示、打巧及存储等操作;并具有对存入磯盘的测量数据 
进行文件管理的功能。 

二、測量信号生成原理及电路基本结构 

该化采用光敏二极管作为测量元件，利用其感光 
开关特性反映元件上方遮光面积的有无。在任一时刻， 
被测物遮光部分的宽度同状态码为1的光电管数间存 
在唯一正比关系，由此生成一次宽度信号。长度信号由 
安装在传动电机轴端的光电发讯码盘控制生成，即码 
盘每隔一定角位移间隔发送一条窄脉冲控制信号，驱 
动采样电路进行宽度信号锁存，并通知微机进行采集， 
两次脉冲信号间所对应的被测物线位移即为长度信 
号。据此，被测皮张的面巧可由下式求得： 

A 二 Ki 乂 KkX S 而 

式中:/^<、/^*分别为宽度和长度^化系数； 

——第 i 次采样宽度信号(即状态码为1的光电 
管数）； 

m -总采样次数。 


图1为根据上述测量信号生成原理所设计的测量 
电路工作原理图。在该电路中，测量元件光电管按每八 
只一组呈横向氷平排列，置于光源下方。每组元件输出 
端均通过一信号锁存器同八位数据总线相联。当长度 
信号脉冲发生器于某时发出一条十 5 V 窄脉冲信号时， 
一方面驱动各数据锁存器将该时刻的宽度信号锁存； 
另一方面通过 I/O 卡上 6522 适配器的握手信号线 CAI 
通知微机采样开始。而后，信号采集程序经适配器输入 
输出口 B 口向译码电路中的译码器逐次输出控制指 
令；由译码器译码确认某一锁存器并发出驱动指令，使 
被锁存的一组光电元件状态码电平信号送入数据总 
线。数据总线通过传输电缆同适配器八位输入输出口 
A 口相联。故采样程序可从 A 口将该组状态码信号采 
入并送内存数据区暂存。反复执行上述译码一驱动 一 
采集操作，即可将全部光电管的状态码信号逐组采入 * 
微机内存;而后，经数据处理软件检索有关换算表得到 
对应的被遮光的光电管数 n ,; 由此完成一次宽度信号 
采集。 

同理，反复执行上述采样过程，即可获得被测皮张 
所对应的总遮光点数;经数据处理软件乘上按相应测 
量单位设定的长宽度量化系数，最后得到该被测皮张 
的面巧值。 

=、数据处理软件系统设计及功能 

该机配属的数据处理软件系统由测量状态控制程 
序、数据采集及处理程序、数据文件管理程序及若干附 
属子程序组成;其中数据采集程序用 6502 汇编语言编 
写，其余均用 basic 语言编写。 

1.测量状态控制程序 

图2为测量状态控制程序框图。由图2可见，该程序 
由测量、校验等韦个模块组成。在主控菜单指令提巧 
下，用户可通过键盘人机交互控制方式进入某一模块 
执行特定操作，并可方便地进行模块间的操作转换。 
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W 下巧述各模块的基本操作功能： 

(1) . 測量:在测量状态下，用户首先人机对话方 
式键入有关控制信息:如测量单位、品种代码、每组张 
数、总面积、结果输出方式及工作日期等。而后自动转 
入测量操作;每测一张，自动显示面积、张数、累计面巧 
及其它有关指标>每到一组，可自动打印测量扉予。同 
时，用户可随时中断测量转入其它模块，返回后继续测 
量，原有各累计数据不受影响。 

(2) . 校验:该模块可用来对光电元件及电路进行 
检査; 若出现非正常状态，则自动显示故睹元件数及其 
位置码。便于维护处理。 

(3) 测量表演:该模块可用于为参观人员作测量演 
示用。功能与测量模块相似，但所测数据不作累计<运 
算，也无巧巧等操作。 

(4) .作废删除:当某一皮张因操作不当造成误差 
过大而需重测时，可调用该模块对当前结果作删除处 
理，则各累计结果均恢复到测前状态。 

(5) . 随化打印:除在测量下每组测量结果可实现 
自动打印扉子外。对某一品种最后不够整组的测量数 
据可利用该模块来实施巧印输出。 

(6) •结果存储:对某一品种的全部测量结果，可利 
40 


用该模块将数据按组为单位 W 数据文件形式 
存入磯盘保留备日后査询;亦可立即打印 
出该品种入库统计单。 

(7). 更换品种:该模块可实现在不关机 
下进行清零操作，为测下一品种作好准备。执 
行后将使主控程序重新启动，在主菜单下等 
待用户进行新品种的测量操作。 

2. 数据采集与处理程序 
根据前述测量信号生成原理及电路基本 
结构，设计了数据采集与处理程序；图3为该 
程序框图。， . 



限于篇幅，本文将不对该程序作详细说明，需补充 
的一点是该量革机具有每组到数提示功能，采用红绿 
指示灯及蜂呜器对操作者进行提示;有关控制功能是 
通过本程序实现的。 

3. 数据文件管理程序 

图4为该程序框图。由六个功能子程序组成，有关 
功能系为适应用户对存益长期保存的测量结果数据进 
行管理而设置的。 



微机主机 










这种新型微机控制电子量革机及数据处理系统己 
在两用户单位现场使用近一年时间，收到了良好的经 
巧巧盎和社会效益。实践表明，该机测量巧度可稳定在 
±0. 05平方尺 W 内，较国内老式量革机精度约提裔一 
倍;表一即为对某一牛皮试件测量十次的结果，绝对误 
差为 0. 05平方尺，相对误差为0! 72%。此外，由于该机 
具有很强的数据处理与输出功能，故可较大幅度减轻 
工人劳动强度，提商了测量操作效率，并使操作人员较 
老式机减少一人。该化在大连辽美裘皮制品厂使用一 
年来，仅由测量精度的提髙就为该厂节省大量的珍贵 
裘皮原料，増值达25万元。目前，该机用户厂么一的金 
州制革厂正拟采用此项技术成果对该厂原老式量革机 
实施<改造。 

PRODUCT ： NP - 101 
DATE ； 1989. 1.20 
NUMBER ； 3 
QUANTITY ； 10 

1 6.94 

2 6.94 

3 6.95 

4 6.93 

5 6.97 

6 195 

7 197 

8 194 

9 196 

10 t 92 

巧一 
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2•余永权:《 APPLE I 微型计鼻机系统结拘》，广东科技 
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注:本文在 Apple 微化愤会=运年会上被评次优秀论文。 
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本程序运行时，屏 募么 方出现一法由15种巧复的 
砖斯成巧墙，下方有一共控板，用化可控制爸 
的左、右移动，其 它化可 使它伴下来，下面打印分數。芳 
外有一块白砖向斜下方运动，游戏者须用挡板抱它接 
住，砖碰到挡板或屏幕边界都会反弹，如碰到墙上，就 
会打掉一块或两块砖，然后再反弹，分數辦增加10。直 
到游戏者接不住运动着的那块白砖铃一声，游戏结 
禾。 


修改$6161单元的化，可改变运行速度（值越大， 
速度越使）。 
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本程序运行时，屏幕上出现一条平直的路，两边有 
鱼彩绽纷的界给，化面开来很多知鱼的汽车，下方有一 
辆白鱼汽车尚前开着。屏幕底部有个衣，显示着游戏者 
行了多少米踩程。每走过256米，路面会变窄，直到变为 
只化容纳2輛汽车并行的宽度，才不再变窄。游戏者用 
分别控制白车的左、《轉向，巧开迎面驶来 
的汽车，当它与其他汽车相化或驶出路面时，的铃一 
声，游戏结禾。如果游戏者走了 1万公里的路巧，则的铃 
王方，并在游戏者按任意键后，重新开始。 

修改$6112单元的值，可改变车速（值越大，车速 
越慢）。如果拓 $60 E 6 单元置零，那么只要按一下 
乂••化，就可使白车连续转向，再按其他键才向正前 
方 行驶。 
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广州梁化伴 


I 巧正 

I 本刊1990年第6期第19页的程巧一中，第110语 

句的 " PETURNT 应为 " RETURN "。 另外，在该行之后应 
!増加一行程巧； 

1 200 Q % = X %/100； W % = X %- lOOXQ %： 

i RETURN 
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• 初学者园地 • 


Applesoft BASIC 入口 

第五讲随机存取数据 


为什么需要随机存取文件？好，请你回想一下顺 
序文本文件。它是由许多记录构成的，这些记录用回 
车符彼此隔开，按次序一个接一个存在磁盘上。为了 
查找其中的一个信息，需要从头到尾一个接一个读 
取所有信息，直至找到它为止。查找顺序文件的操作 
就象从存有许多歌曲的录音磁带上找某一乐曲一 
样。你可1=^一个接一个听所有歌曲，直至听到所找的 
那一个歌曲;也可 W 找到送首歌曲的上一曲末尾，直 
接巧这首歌曲。因为歌曲的长短不一，这里最重要的 
是找到磁盘上的恰当位置。 

顺序文件对某些类型的数据非常合适。例如，字 
处理文本文件几乎总是顺序文件，因为它们长度不 
定，少至几个字符，多则几千几万个字符。 

但是，如果你希望更快的速度处理你选中的 
文件，另一种类型的数据就更有用了。苹果祝和中华 
学习机磯盘操作系统提供了随机存取文件功能。随 
机存取文件具有快速存取、有效管理数据类型等优 


随机存取文件 I 为了更直观地理解顺序文件 
与随机存取文件的不同点，可 W 拿两组卡片作比较， 
一组是顺序卡片，另一组是随机存取卡片。 

在顺序卡片中，每一张卡片的长度可自由选 
择。换句话说，每张卡片存储的信息的长度是不固定 
的。如果你想找其中的某张卡片的信息，例如第 .33 
张卡片的信息，得从第一张卡片巧始，一直读到第33 
张卡片。査找任一张卡片的方法，必须从头到尾，依 
次査找，直至査到为止。 

随机存取一组卡片，每一张卡片存储的信息长 
度都一样。如果你想査找第33张卡片上的内容，就 
不必从头到尾读所有卡片，你可 iU 直接找到第33张 
卡片，读取其中的信息。 

由此可知，顺序文件的优点是它的记录长度可 
变，缺点是査找速度慢。随机存取文件的优点是存取 
速度快，缺点是每个记录的长度固定不变。 

随机存取文件的各种命令 I 处理随机存取文 
件用到四个命令，你可能已经熟悉它们了。 OPEN 的 
作用与它在顺序文件中的作用一样。在随机文件中， 
OPEN 还应含有一个记录长度参数。这里的记录长 


度指每一个记录的长度，而不是整个文件的长度。这 
个命令的格式是(假定己用 0$ (4) 语句把 

Control-D 赋值给 D $ ) : 

PRINT D$ /^OPEN RAN. FILE’LN” 

其中的字符 n 代表记录的长度。 

在随机存取文件中使用 OPEN 命令打开文件 
时，文件名后面都应附有长度参数，因为这个长度参 
数是用来计算记录位置的。 

■要建立随机存取文件来反映上面列举的卡片数 
据项目，便应算出记录长度。卡片上有兰个数据项： 
颜色，货名，数量。我们来看看其中每一项的最大长 
度:公 LACK ：(5 个字符）， £ tfAMOiVO (7 个字符 ），13 
(2 个字符），由于每个记录都含有这兰个数据项，所 
W 还要增加两个回车符来分隅云个数据项，最后还 
要用一个回车符结束末尾数据项。这样，每个记录总 
计17个字符。一个字符占用一个字节，因此，卡片巧 
录的长度是17。 

这个例子比较简单，但存储各种类型的数据的 
原理都一样。只要记住一点:按数据最大长度来计算 
和确定记录长度， W 免返工。一条通用的规则是:记 
录长度要予设大些，不要予设过小。 

上面讲的结构一经确定，则随机文件的使用便 
与顺序文件的使用一样容易。 

确定随机存取文件长度 W 后，用 OPEN 命令将 
其巧开，便可进行读(及 EAD )、 写 ( WRITE ) 操作。使 
用方法与上一讲顺序文件中介绍过的一样。使用 
及 JEAD 和 W 及 rrjE 命令正象顺序文件中那样，増加 
一个记录号。记录号用来确定你所希望处理的一组 
固定长度记录中的某一个具体记录。每一个记录可 
W 看作一个小的顺序文本文件。:仍 W 前面所举的卡 
片组为例，最前边的卡片记录号为1，最后面的卡片 
记录号为52。这两个数字 f 哥的任何一个数字，便是 
一个具体的记录号。 

CLOSE 命令的巧用与它在*序文件中的作用 
一样。它不要求记录^度或其它参1数。不论是顺序文 
件，还是随机存取文件，都必须用 CLOSE 来作结束。 

建立随机存取文用 在电视广告中经常用到 
一句话:只要你试一试，你便会迷 上它。 我们也可 W 
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用这句话来说明随机存取文件。它的设置与使用看 
来较难，但它提供的功能却非常有用。试编一个含有 
扑克牌数据的随机存取文件，看看它是如何工作的。 
请键入本文所附程序 usTJNxn ， 并用下述命令存 
盘： 

SAVE MAKE. CARDS 

请你认真思考一下这个程序，很快便会发现，该 
程序只要求作提供数据，此外不需要任何操作。当你 
往文件输入了数据 W 后，便可键入所附程序 LIST- 
JArG 2, 并用下述命令存盘： 

SAVE READ, CARD 

这段短程序读取上面存入数据的文件，并显示 
你选中的扑克牌数据。你可键入选中的牌号，它便显 
示该张牌的数据。 

多台磯盘驱动器~巧覆同 有许多苹果机可配 

置二台或多台磯盘驱动器。对于配有多台驱动器的 
苹果机来说，槽号 SLOT 和驱动器号 DRIVE 选择 
项可用来处理多台驱动器。 

如果你的苹果机配有两台驱动器，它们都接到 
机器的同一块控制卡上，这是一个很好的机会。通常 
这块卡位于6号槽。这时从一台驱动器变到另一台 
驱动器，只要在磁盘命令中加上 D1 或 D2(D1 或 D2 
前带逗号"， M ) 即可。 

当省略 01 或 D2 时；磁盘驱动器按 BOOT 
OOS 时的顺序自动执行操作，直至遇到设置另一台 
驱动器为止。例如，选定二号驱动器，则二号驱动器 
将接受所有的磯盘操作命令，直至设定另一个驱动 
器为止。驱动器号的设定可加在任何一个磯盘命令 
中。例如； 

CATALOGyDZ 

LOAD PROGRAM,D1 

配有两台 w 上驱动器的苹果机要通过多个控制 
卡工作。每一张卡应插在不同的槽内。用 Sn 命令来 
选择相应的控制卡。省略槽号时，与上面介绍过的一 
样，自动执行 DOS 引导时的槽号，直到用户命令更 
改请号为止。槽号、驱动器号先后顺序无关，只要跟 
在文件名后即可，例如： 

LOAD GAME ， S6 , D2 

RUN PROGRAM,DZ,SG 

iVoDQS 路径名 1 你可 lU 使用跟上述一样的 
槽号与驱动器号在 iVoDOS 操作系统中工作，但还 
要另外増加一项路径名操作。在 ProDOS 操作系统 
中，每张磁盘都有一个由斜线开始的名称，称为卷 
名。必须规定卷名才能使用该磯盘。例如，有一张卷 
名为 /TEST 的磁盈，必须用下述命令才能显示它的 
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目录： 

CAT/TEST 

不论该磁盘位于哪一个驱动器， ProDOS 将检 
查每一台驱动器，直至找到含有卷名 /TEST 的磁盘 
为止。 

把磯盘的卷名及磁盘上的文件名（或一些子目 
录名）连在一起就可建立一个描述文件位置的路径 
名。例如，在卷名为 / test 的磁盘上存有一个名叫 
MYFILE 的文件，你可 W 通过路径名 /TEST/MY- 
FJJLE 来找到这个文件。 

ProDOS 还能建义子目录名，把一张磁盘上的 
文件划^为若干个子目录，每个子目录中包括一组 
文件。备 1 如，你可建立一个名为 t/T 化 JTJES 的子 
目录，在此予目录下存储应用程序文件;或者建立一 
个名叫 GRAPHICS 的子目录，在此子目录下存储 
绘图程序和图形文件。要找到子目录中的文件，必须 
确定卷名、子目录名和文件名。例如，假若在卷名为/ 
TEST 的磁盘上有一个 GKAPHJCS 子目录，此子 
目录中存有一个 PAINT 程序，要运行该程序，便应 
键入下面的命令： 

及 UN/TEST/G 度 AiWCS/PAJNT 

ProDOS 的这种分层结构特点对于存储容量大 
的磁盘，例如 800K 软磁盘 W 及容量更大的硬盘特 

别有用。但是，它在英寸软磯盘上的用途则有 
限，因为这种软盘存储容量不大。 

磯益应用程序 I 苹果 n Applesoft 的磯盘操作 
系统 (DOS3. 3 及 ProDOS) 提供了一些对磁盘和文 
件操作的应用程序。其中， COPYA 是 DOS3.3 最常 
用的一个应用程序。它提供了一个很方便的拷贝整 
片磯盘的途径。它在屏幕上给出详细提示，使你在应 
用时不会有问题。只是要当必，对源盘要加上写保护 
(将磯盘右上角处的写保护孔贴上写保护条），防止 
不小私损坏数据。 

FJD 是一个处理各种文件的应用程序。要使用 
它时，在 DOS3.3 主系统盘下键入： 

BRUN FID 

这时，屏幕将显示一个选择项菜单，通过选择菜单中 
的各项，便可列磁盘目录、复位槽号和驱动器号;加 
锁、解锁、检查、删除或拷贝文件;选择合适的项还能 
显示磯盘上剩余的空间。所有这些项中，最有用的恐 
怕是文件的拷贝功能。选择菜单中的 COPY FJLES 
项，允许你把指定的文件拷到另一张盘上。 

ProDOS 的用户在 ProDOS 用户盘的 F « er 应 
用程序或 I GS 系统应用程序盘的 SYSUTIL . 
SYSTEM 中也会找到上述各种恃点。这两个应用程 






序能列出滋盘目录、程序行、复制磁盘、格式化滋盘、 
建立子目录、更改卷名， W 及拷贝文件、给文件改名、 
删除文件、加锁及解锁文件等。 

滋盘操作方法 I DOS 3. 3和 ProDOS 的操作 

手册中对它们的全部特点有详尽说明。我们这里择 
其一部分重要操作，另外提出一些手册中未提到的 
建议。现在，当你对 DOS 已有了基本的了解，请考虑 
一些有用的"资口它对学习编程的新手很有意义。 

1. 卷号 

在 DOS 3. 3下，用 INIT HELLO , V 254 命令可 
W 为每一张格式化过的磁盘规定一个1〜254之间 
的卷号。任何一个磁盘操作命令都可含有一个磋盘 
卷号。你一定会想:为什么不用卷号来检査驱动器中 
的滋盘是否正确呢？这是个好主惹。在每个命令后面 
加上 Vn , 告诉 DOS , 让它来査看磁盘卷号，如果卷 
号不符，就发出出错信息。 ProDOS 不用卷号，因为 
每张磁盘都有自己的卷名。 

2. 模仿链接 

许多操作系统都有一个重要特点，即能使一个 
程序启动运行另一个程序。最常见的可算分享变量 
和共用数据了。 DOS 3. 3系统主盘中包括了一些规 
定，供 AP 軒 CSO 八使用这种特点。其过程略为复杂。 
不过，你可 W 运用比较便当的方法。请键入你所需要 
的程序执行方式的命令： 

510 PRINT D $ ;"及 L/N 程序名 " 

大家知道，键入 run 时，会清除内存中的变量 
与数据。但是，如果你的程序不要求大量数据，只要 
重新读入由程序的第一部分建立的有关文件即可。 
此过程仅需数秒钟。 

3. EXEC 命令 

顺序文本文件最重要的应用么一便是使用 ex ¬ 
ec 命令。 EXEC 从文本文件中取得程序行或命令， 
W 象键盘键入一样处理它们。请你先看看下面的说 
明，然后在自己的计算机上试用。 

丘 XEC 能用来控制顺序事件。一件事处理完毕， 
EXEC 使转向另一件事。为利用这一功能，你应当先 
建立一个文本文件。便是建立文本文件 
的短程序(假若你使用 ProDOS ， 则40行的 HELLO 
改成 STARTUP )。 请把这段程序键入计算机，用下 
述命令存盘： 

SAVE AUTOFILE • 

然后，査看一下磁盘目录，看有没有 AL / T - 
OFJLE 这个文件。如果有，请你键入 : EXEC AUT - 
OFJLE ， 它将引导下述顺序事件： 

1. RUN 磯盘上的 HELLO 程序(或 STARTUP 


程序）。 

2. CATALOG 磁盘目录 

3. LJST 列程序清单。 

4. 清屏 ( HOME )。 

你的磁盘上应含有 HELLO 程序。若没有，可把 
任一个程序改名为 HELLO 。 然后键入 EXEC AUT - 
OF 7 LE ， 看其运行结果。 

EXEC 与 LOAD 或 RUN 命令略有不同。每当 
一个程序被 RUN 命令运行或被 LOAD 命令调入内 
存时， EXEC 等待程序运行完毕，然后继续它自己的 
操作。这就表明，不管 RUN 和 LOAD 是不是清除内 
存， EXEC 文件仍留在内存中。 

除上述功能 W 外， EXEC 含有一些对编程人员 
十分重要的特点。使用这个命令，可把一个含有程序 
清单的文件变成一个文本文件，把这个文本文件用 
文本编辑软件加到另一个程序中去。当文本文件用 
EXEC 命令执行时，其结果就如同从键盘上键入一 
行行程序一样。 

为把程序变成文本文件，应当把一段短程序加 
在该程序之前，这段短程序只有一行，可使用0号行 
号 (0 行号一般很少用）。例如： 

0 D $ = CHR $(4) : PRINT D $ "OPEN LIST - 
FILE **： PRINT D $ ** WRITE LISTFILE ^： 
LIST 1,63999 ：PRINT D $ ^ CLOSE**：END 
把上面这一行加入你的程序 W 后，键入 run 。 
这时，执行的不是你的程序，而是建立一个含有你全 
部程序清单的文本文件，名字叫 USTFJLE 。 这个名 
字你可 W 随意更改。如果你想运行原来的程序，只须 
删除0行即可。 

请你试建立几个 exec 文件并使用它们，它的 
编程特性会更加明显。 

LISTING 1 S MAKE . CARDS . 

10 REM MAKE . CARDS 
20 D $ = CHI ?$ (4) : REM CONTROL-D 
30 HOME ： VTAB 7； PRINT " CREATING 
CARDS …" ， 

40 PRINT D $ ;MOPEN CARDS , L 17^ 

50 FOR N =1 TO 13 
60 PRINT D $ WRITE CARDS , 

70 PRINT RED " PRINT " HEART ^^ : PRINT 
N 

80 NEXT 

90 FOR N =14 TO 26 
100 PRINT D $ WRITE CA 及 DS , 及 "N 
no PRINT " 巧 LACK " : PRINT " SPADE : 
PRINT N - l ^ 
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120 NEXT 

130 FOR N =27 TO 39 < 

140 PRINT D $ WRITE CARDS , R^N 
150 PRINT " 及 ED "; PRINT " DIAMOND *^ ； 
PRINT AT —26* 

160 NEXT 

170 FO 及 N = 40 TO 52 

180 PRINT D $ ;"\V 及 JT 丘 CARDS,W N 

190 PRINT " BLACK ； PRINT " CIX / B ": 

PRINT N -39 
200 NEXT 

210 PRINT D $ CLOSE CM 及凸 S " 

220 HOME ： VTAB 7； P 及 INT " CARDS FILE 
COMPLETEH ^ 

LISTING 2:及私4 。 CARDS 
10 K£Af 及 EylD . CARDS 
20 0 $=CJFf 及 $(4) 

30 TEXT : HOMJE : iVOKMyiL : yTAE 3 
40 INPUT "ENTER CARD 弁 （1-52 O 及 Q TO 
QUJT ):"; A $ 

50 IF A $ ="Qw THEN HOME：END 
60 A = VAL ( A $) 

70 IF A 1 OR A 52 THEN GOTO 30 
80 PRINT D $ i"OPEN CARDS ， L 17" 

90 PRINT D $ ；^READ CARDS , 

100 INPUT C $ ： INPUT S $ ： INPUT V 
110 PRINT D $ CLOSE CAROS " 

120 VTAB 10 ：PRINT "THE COLOR 化： " ；C $ 
130 PRINT "THE SUIT IS ;" ； S $ 

140 PRINT "THE VALUE IS 
150 VTAB 22： INPUT "PRESS RETURN TO 
CONTINUE ^^ 

160 GOTO 30 

LISTING 3； AUTO 

10 D $ =CH 及 $ (4) : REM CONTROL — D 
20 PRINT D $ ;"OPEN At/TOF 化 JE " 

30 PRINT O $ ;" WRITE AUTOFILE ^^ 

40 PRINT "RUN STARTUP " 

50 PRINT ^^ CATALOG ^^ 

60 PRINT " LIST " 

70 PRINT " WOME " 

80 PRINT O $ ;"CLOSE Al/TOF 化 E " 

冯静编译自 《 WKBLEM 989 年第 11 期 


•软件介绍 • 

" Ap 抑 c — I 五笔字型和快速法/ 
软汉字系统"的使用说明 

把本软件的获盘插入第一驱动器中，出现提示 
符后，键入 CATALOG I ;再出现提示符后，键入 
BRUN CWPZX—CDOS 或 COOS (即按 
需求运行 CWPZX — CDOS 或 KS CDOS 文件） 
I ;出现提示符，键入 Cfrl - E ; 然后把字库盘插入第 
二驱动器中，即可用此软件输入汉字，可用 Ctrl-L 
退出。五笔字型和快速法的软汉字系统详细介绍见 
八九年第四期《苹果园》杂志。 传菊 

•广告 • 

福州市科协实用技术学校 
第二期无浅电画授班招生 

经省教育部口批准，为培养家电维修人才和满 
足就业需要，面向全国招生，学习内容：收音机、录音 
机、黑白彩色电视机及录象机修理技术。学制一年， 
学费38元（含教材费、学3费、挂号邮寄费等）。全部 
铅印12册一百万字教材，内容全面，通俗易•度，编写 
新颖，是无线电爱好者不可缺少的一会好书。期满发 
盖钢印毕业社和修理员鉴义社书。全年連续招生，款 
汇到视为报名，跑寄全套教材和无线电拉义，并專开 
学。可提前毕业或免费延长学习期限，学会为止。本 
校负责解答疑难问题，长期提供技术服务，供应实践 
器材，办理《全国统一社书》(供办营业执照用）。 

通信汇款地 址：福 州市科协实用技术学化官大 
政收，邮政编码 35000] 简幸免费备索 

今今今今今今今今今今今今今今今今今今今今 

告作者 

应读者要求，为减少排版出错，在此，要求各位 
作者:来稿中的程序应用新的黑色带打印在打印纸 
上，清晰度要髙， W 便直接照相制版，打印程序字号 
要与本杂志正文字号 (5 号或6号)相仿，每行程序的 
宽度不超过 7 cm 。 望多合作。 

《中华学习机》编辑部 
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•竞赛园地 • 


《禹全跳伞》详細役计 

清华大学计其机系 潘宇东 


一、 后动 

1. 用冷启动或热启动都可 W 启动盘片，并首先调 
入一张图形，图形应当简单、美观。 

2. 保持屏幕图形，调入工具软件。 

二、 题目 

1. 自由落体的方式把"高空跳伞"四个字分别 
摔出，每个字伴随一个声响（此动作么前可 W 更换一 
个新的背景）。 

2. 从屏幕上方落下两只降落伞，两个伞兵飘到屏 
幕的右下角之后，变成两位作者的姓名，此时屏幕如 
图一。 



屏蒂要干净、美观，突出"高空跳伞"这个题目， 
W 高空跳伞’'四个字最好不用硬字库的汉字，而用美术 
字体。 

3. 用语音说出 W 高空跳伞"四个字，然后演奏一段 
主题曲。 

mi 13511 I 

4. "高空跳伞"四个字的题目作为一个图块，平移 
到屏幕的正上方。 

5. 然后在屏幕的下半部，用矩形窗口扩展的方式 
展现出文字题目：“一位跳伞运动员从2000米的髙空 
向下降落，如果不打开降落伞，运动员到达地面时的 
速度将有多大？为什么巧开降落伞之后，落地速度会 
变小?"屏幕从图二变成图兰。 



窩空跳伞 


一位 


图= 

文字题目窗口中的文字最好用软汉字(或用硬汉 
字错位重打)文字窗口的文字颜色与背景颜色，窗口 
内颜色与窗口外颜色搭配要适当。 

6. 在右下角显示出"请按键"的提示。 

S 、 基本概念 

1. 用刷新方法刷出新的一巧，显示出兰个基本概 
念，如图四。 

^ S 个基本概念 

1. 能量守恒定律 


2 . 

3. 



图四 


请选择 
自宙落体 
无伞降落 
有伞降落 
顺序演示 

m ~~~¥ 


图五 











困四这一屏中的文字应当用十分规整的汉字，色调柔 
和的背巧来突出这兰个基本概念。 

2. 在右下角显示"按键继续'’的提示户 

四、 菜单 

1. 展现出新的一屏，显示一个选择菜单（如图 
五)•再用语音提示"请选择 M 。 

2. 菜单的选择用一、-■左右箭头和回车键实现。 
用反向闪烁表示用户当前的选择。用左右箭头来改 
变，回车®来确认。 

3. 若选择"自由落体"、"无伞降落有伞降落 " 

兰个专项分析，则分别进入相应模块，模块完成么后 
返回此菜单。4 : 

4. 若选^^"顺序演示"，则程序自动地把"自由落 
体无伞憐落有伞降落 M 兰个模块顺序地演示， 
然后返回此菜单。 

5. 若选择"退出"，则进入退出模块。 

五、 自由落体 


一个自 

由 

落体的吏 

能 

量 

柱 

IS 

1 

///iff 

运动^ 

动能 势能 请按键 1 


团六 


1. 显示一个屏幕如困六。左面有两个能量柱，分 
别代表右面悬挂物体的动能和势能，此时势能最大， 
动能为0。 

2•君挂物体的绳子断了，物体开始下落，随着物 
体的下落，能量柱中的势能在逐渐减小，动能在逐渐 
变大。能量 巧上要 保留势能原来的最窩点值。物体的 
下落要有匀加速过程。如图韦、困八(标出运动轨迹)。 



* • I 






能 

量 





柱 


_ □ _ 


动能势能 I 请巧键 I 


图八 


3. 运动的结果就是图八。物体落地，动能达到最 
大值，势能全变成动能。 

4. 物体落地后,动能马上由最大降到0,也保留动 
能的最大值。 

5. 象拉大幕一样拉出 W 能量守恒定律"六个大字， 
并且微微巧动一会儿。 

6. 显示出一行文字:"自由落体相对于地面的势 
能完全变成物体着地前的动能。" 

7. 从法行文字中，"动能 W ‘势能"两个词用动画方 

式移出来，到了屏幕中之后各变成了^^2和 W 狄， 
然后在屏幕下方打出 tn . "• g . h 的意义图九。 


能量守恒定律 

自由落体…勢能…动能 
1 2 

- mv = mgh 

2 

m: 物体的质量 V: 落地前速度 
g : 重力加速度 h : 下落前商度 

I 请按^ 


8•用动画方式来推导公式： 

① 等号两边的两个动来动去，碰在一起后同 
时消失 

② •|•^ 2 =狄左边的^动到右边变成2 

③ 。 2 = 2狄。左边的"平方2"，动到右边变成"根号 

这就成了 
提示按键继续 

9. 给出数值 g =9. 8米/秒 2 . h =2000 米 
用〜/ 2 X 9. 8 X 2000=198 米/秒"来覆盖 
成为图十。 
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能量守恒定律 

g*. 

V=V2X9. 8X2000=198 米/秒2 
W: 物体的质量 落地前速度 

g:9.8 米/秒2 fi:2000 米 


图十 

10. 按键后返回主菜单。 

六、无伞降落 

1. 显示出一幅 "天空 、远山、平原"的图形，在屏幕 
上方显示出一段文字: W 用理想自由落体理论来分析， 
一 个人从2000米离空跳下，最后落地前速度为198米 
/秒。太惊人了。 

实际上这个速度是不可能达到的。跳下的人除了 
受到重力作用之外还受到空气阻力的作用。" 

在右下方提示"按键继续" 

2. 清掉上一屏，在屏幕上方出现一行文字:"物体 
下落的速度越大，受到的阻力就越大。"送行文字从底 
向上推出，扫过的地方显示出一个关系图，此屏如图 



3. 展出一段文字分析将上面的图形清掉，并在下 
部出现两个座标系，如图十二。 


物体下落的速度越大，受到的阻力就越大 


合作用力为重力减去空气阻力， F = mg-Ff 
阻力越来越大，合力越来越小，最后受力为0。 
由 F = ma ， 所^>1最终加速度为0,匀速下降。 

个向下加速度 a t 速度 


g 

0 



Vo ’，速度V 



按键继续 


图十二 


随着时间变化，画出两条曲线(将虚线变实线）。 

4. 从左向右推出新的一屏，左部有一段文字，右 
部的底部有一个人和一架直升飞机，如图十兰。 



5. 小人走进直升飞机，飞机逐渐升到屏幕顶端， 
停住。小人从直升飞机跳出，向下疾落，最后匀速落 
地。粉身碎骨成爆炸状，并伴有破碎之声(或小人叫喊 
声），接着一段音乐:761-| I 

6. 把左半部的文字换成另一段:"假定运动员质 
量65千克，落地时在 0. 5秒内使运动员的速度由50 
米/秒变为零，， 

7. 在屏^右部上面闪出"动量的变化量等于冲 
量 "并再 闪动几下之后 W 反向方式保留。 

8. 在屏幕的右部下面显示出公式的推演及代入 

计算; = 0 

F = mv/t 

= 65千克 X50 米/秒个 0. 5秒 

= 6500牛顿 

承受这么大的力，运动员势必丧生无疑。 

9•提示按键继续，返回主菜单。 

七、 有伞落地。 

1. 显示出一个大背景"天空、远山、平原、河流" 

2. 一架飞机从左向右飞过，撤许多小点，小点变 
成了汉字，"从2000米高空跳下不用降落伞，运动员必 
死。我们运用截面积越大，受空气阻力越大的原理，让 
运动员打开降落伞，那么运动员就会安全着陆了。" 

3. 刮一阵风，把上面这段汉字吹跑。 

4. 飞机再次飞来，投下一个跳伞运动员，慢慢飘 

落(远景）。 > 

5. 用特写镜头拉近(或用屏幕切换)成为近景，成 
为背景移动的动画。 

6. 还保持近景，动画演示运动员定点降落，安全 
着陆。由语音说出 "OK"。 

7. 用音乐奏出 3jJ_l|35i| I，然后再现全景。 

8. 提示按键继续。返回主莱单。 

八、 退出。 

1. 再现图四，兰个基本概念，按键继续。 

2. 出现一幅图形，显示"再见 W 二字，伴 W 轻柔音 
乐。 






































